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ВВЕДЕНИЕ 


Обладатели домашнего компьютера ИХ 5рестат, число которых стремительно 
растет, потратив массу времени на различные игры и накопив солидную 
библиотеку программ, начинают в конце концов задавать себе вопрос: «А нельзя ли 
самому научиться писать нечто подобное?» Если и вы всерьез заинтересовались 
этой проблемой, мы попробуем вам помочь. 

Будем считать, что вы знакомы с клавиатурой 7Х 5ресташ, умеете записывать 
программы на магнитную ленту (или дискету) и загружать их в память компьютера, 
а самое главное - горите желанием создавать что-то свое, новое, крутое и 
неповторимое. 

Прежде чем начать писать игровые программы, необходимо научиться хорошо 
представлять себе две вещи: как строятся такие программы, то есть из каких 
основных частей они состоят, и как они реализуются на языке программирования 
Бейсик. 

О Бейсике написано огромное количество разнообразных книг и статей. Аля 
первого знакомства с «идеологией» этого языка, его основными операторами и 
функциями, можно воспользоваться любой из них, но лучше сразу обратиться к 
книге «Диалекты Бейсика для Г.Х 5ресташ» [2]. 

Приступая к написанию компьютерных программ на Бейсике, нужно всегда 
иметь в виду, что работать они будут медленно. Поэтому для первой пробы сил в 
программировании больше подойдут спокойные игры, похожие на шашки, нарды, 
морской бой ит. п. Позже, накопив опыт и знания, вы сможете ускорить движение 
объектов на экране, применяя различные программы-компиляторы типа Тороз, 
эоек или МСоаег 2. Отличные результаты дает также один из диалектов Бейсика - 
Газег Ваз!1с, ориентированный на работу с графическими изображениями. 

Ну, а тот, кто рвется писать игровые программы на профессиональном уровне, 
но еще не владеет языком ассемблера, узнает, как использовать при создании игр 
готовые процедуры в кодах из пакетов 5ирегсо4е и Мем 5ирегсоде. 

Для написания даже не очень сложных игровых программ нужны какие-то 
знания. Надеемся, что вы уже разобрались с такими понятиями, как «оператор», 
«функция», «программная строка» и т. п., научились пользоваться копировщиками 
и умеете переключать режимы курсора клавиатуры 7Х 5Зрестгат. Если нет - 
советуем внимательно ознакомиться с инструкцией по эксплуатации компьютера 
или попросить друзей ввести вас в курс дела. 

Книга составлена таким образом, чтобы те, кто до этого не имел ни малейшего 
представления о Бейсике, смогли научиться программировать на нем. Но даже если 
вы что-то знаете об этом языке, не спешите сразу смотреть на последние страницы: 
ведь в первых главах описаны простенькие программы, которые используются в 
дальнейшем в качестве элементов более сложных программ. 

Теперь несколько слов о структуре книги. 

В первой главе рассматриваются блоки, из которых строятся игровые 
программы: заставка, игровое пространство, блок взаимодействия с играющим и 
блок оценки игровой ситуации. Дается краткая характеристика каждой части с 
примерами и рисунками. 

Из второй главы вы узнаете, как сделать простенькую заставку к игре, 
пользуясь языком Бейсик, «зашитым» в памяти-7.Х рес тат (5ресгат-Бейсик). На 
примере нескольких программ вы начнете знакомиться с операторами и 
функциями Бейсика. Каждая строка приведенных программ подробно 
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комментируется. В этой главе также описано, как воспользоваться графическим 
редактором Ай 5410, чтобы нарисовать картинку вполне профессионального 
уровня. 

В третьей главе мы расскажем, как построить игровое пространство, то есть 
создать те подвижные и неподвижные объекты, которые вы видите на экране во 
время игры. Особое внимание уделено подвижным объектам (в программировании 
они называются «спрайта»), показано, как можно нарисовать их различными 
способами. 

В следующей, четвертой главе речь идет о приемах программирования, 
делающих игровую программу более совершенной. Даны рекомендации по 
составлению блок-схемы игры, без которой построить сложную программу почти 
невозможно. Показано, как сделать многоуровневую заставку, включающую в себя 
меню, и как ввести в программу разнообразное звуковое сопровождение. 

Пятая глава посвящена взаимодействию игрока и программы. Она 
рассказывает о том, как можно управлять событиями, происходящими на экране - 
заставить самолет повернуть при соответствующем наклоне ручки джойстика, 
вызвать на экране взрыв при попадании снаряда в цель ит. п. 

В шестой главе мы обсудим вопрос о том, как оценивать действия играющего во 
время игры: начислять ему очки, следить за количеством оставшегося топлива или 
снарядов, числом уничтоженных «врагов». 

Седьмая глава касается самого сокровенного - операционной системы 
компьютера. Вы убедитесь в неисчерпаемости возможностей орессу и 
ограниченности средств Бейсика. Возможно, эта глава побудит вас глубже 
разобраться в программировании и освоить для начала другие разновидности 
Бейсика, а затем и другие языки. 

С одним из диалектов Бейсика - Газег Ваз1с, дающим в руки программиста 
мощные средства для работы с графикой, - вы сможете познакомиться в 
следующей, восьмой главе. Этот язык дополняет стандартный эресиат-Бейсик 
сотней новых операторов и функций, с помощью которых можно выполнять самые 
сложные действия со спрайтами: перемещать их по экрану с большой скоростью во 
всех направлениях, инвертировать, поворачивать и т. д. С помощью Газег Ва$1с мы 
сделаем мультипликационную картинку и напишем игру БЕГА МЫШЕЙ. 

Девятая глава перекидывает мостик от Бейсик-программ к программам в 
машинных кодах. В описанных примерах используются кодовые подпрограммы, 
взятые из специальных пакетов процедур 5арегсо4ае и Мем 5ирегсо4е. С помощью 
этих кодовых блоков генерируются всевозможные звуковые сигналы, мгновенно 
выводятся на экран изображения больших размеров, быстро перемещаются 
спрайты, в общем создается то, без чего нельзя представить хорошую игровую 
программу. 

Впрочем, можно почувствовать себя настоящим программистом, даже не имея 
ни малейшего представления о бейсиках и ассемблерах. Генератор игр Сатез 
Резюдпег, описанный в последней, десятой главе, позволяет собрать игру из 
составных частей, как из кубиков, - пусть всего лишь примитивную «стрелялку», но 
зато в ней можно заказать на свой вкус все: от цвета экрана до сценария игры. Вы 
можете задавать число, внешний вид и даже «степень агрессивности» 
противников, количество очков, получаемое за их уничтожение, менять звуковое 
оформление игры, траекторию и скорость движения объектов ит. д. ит. п. 

В Приложении 1 приводятся листинги нескольких игровых программ. Здесь же 
описываются правила игры, а также даются краткие пояснения к листингам 
программ на тот случай, если вам захочется изучить их подробнее, а может быть, 
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внести ряд собственных дополнений и улучшений. 

Приложения 2, Зи 4 носят чисто справочный характер и содержат краткие 
сведения об операторах и функциях Бейсика (Приложение 2), графическом 
редакторе Ан ЗаЧю (Приложение 3) и музыкальном редакторе \МПВат 
(Приложение 4). 


Творите, осваивайте и ждите появления следующей книги серии «Как написать 
игру для 7/Х 5рестат», в которой мы расскажем о применении языка ассемблера 
для создания компьютерных игр. 


Все программы этой книги написаны и отлажены И. Капульцевичем. Главы 7 и 
10, посвященные системным переменным и программе Сатез Рез1дтег, написаны 
А. Евлокимовым. 
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Перед каждым, кто впервые приступает к созданию игровой программы, встает 
непростая проблема: с чего же начать? Чтобы облегчить ее решение, попробуем 
условно разделить программу на несколько частей, каждую из которых можно 
было бы разрабатывать и отлаживать независимо от других. Если повнимательнее 
присмотреться к хорошим компьютерным играм, то таких частей можно выделить 
четыре (см. [6]): 

заставка; 

игровое пространство; 

блок взаимодействия с играющим; 

блок оценки игровой ситуации. 

Давайте поподробнее познакомимся с каждой из этих частей и для начала в 
самых общих чертах рептим, как их создавать. 


Заставка 


С этой частью программы мы сталкиваемся каждый раз, когда загружаем 
фирменные игры. Поскольку процесс загрузки с магнитофона занимает обычно 
несколько минут, то разработчики программ придумали первым делом загружать 
на экран красочную картинку, рекламирующую предстоящую игру (рис. 1.1). 

Таким образом, пока идет загрузка, вы любуетесь заставкой и готовите себя к 
очередному компьютерному приключению. Надо сказать, что картинка на экране - 
это еще не вся заставка, а лишь первая ее часть, и в дальнейшем мы будем называть 
ее картинкой-заставкой, или просто картинкой. 


Рис. 1.1. Заставка игры В-ТУРЕ. 

После того как игровая программа загрузилась, на экране последовательно 
появляются остальные части заставки, информирующие игрока о некоторых 
деталях предстоящей игры 

Посмотрим, какие данные выводятся в заставке и как они распределяются 
между ее отдельными частями, которые мы будем называть кадрами. 

На первой, обычно самой красочной картинке, сопровождающей загрузку, 
помещают название игры и фирмы-изготовителя, а также имена авторов 
программы (здесь вы можете увековечить свое имя, когда напишете хорошую 


игру). 
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Рис. 1.2. Меню программы НАТЕ. 

Это не только «визитная карточка» программы, но еще и неплохая реклама. 

Далее в большинстве игр в качестве одного из кадров заставки выводится меню 
- список действий, которые необходимо выполнить для настройки игры. Пример 
меню приведен на рис. 1.2. 

В меню вы можете выбрать способ управления игрой: один из типов джойстика 
(КЕМРЗТОМ, ЭПМСТАТЩ и др.) или клавиатуру (КЕУВОАКО). Здесь же можно 
«заказать» удобные для игрока клавиши управления (КЕРЕРИМЕ КЕУ5)}, 
просмотреть таблицу рекордов (Н1-5СОВЕ), иногда - выбрать уровень игры 
(ГЕУЕГ). Обычно из меню осуществляется запуск игры (5ТАКТ САМЕ). Ввод имен 
играющих (ЕМТЕВ УОЧВ МАМЕ), переназначение клавиш и просмотр таблицы 
рекордов очень часто выполняются, как отдельные кадры. По окончании игры вы 
снова возвращаетесь в меню. 

Обычно все части заставки красиво оформлены, а их демонстрация чаще всего 
сопровождается звуковыми эффектами или музыкой. 


Игровое пространство 


Игровое пространство - это совокупность всех подвижных и неподвижных 
объектов, которые появляются на экране во время игры. 

В распространенной игре Рас-тап (упаковщик) игровое пространство 
представляет собой лабиринт с прожорливыми «колобками», одним из которых 
управляете вы, а несколько «врагов» подчиняются программе и пытаются 
причинить вам массу неприятностей. В программе СБезз (Шахматы) игровое 
пространство - шахматная доска с расположенными на ней фигурами, которые в 
соответствии с вашими указаниями могут передвигаться по полю, не нарушая при 
этом шахматных правил. Наконец, в игре Тен1$ игровое пространство представляет 
собой стакан с падлающими разноцветными геометрическими фигурками, которые 
вы должны плотно укладывать в нижней его части (рис. 1.3). 


Рис. 1.3. Игровое пространство программы ТЕТВ!5$. 
Используя эти примеры, попробуйте теперь сами определить, из чего состоит 
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игровое пространство в знакомых вам играх. 

Посмотрим на игровое пространство с другой стороны, а именно со стороны. 
разработчика программ. Начнем с того, что любое сложное изображение на экране 
можно представить в виде некоторого количества небольших по размерам, но 
вполне законченных объектов. Часть из этих объектов передвигается, а основная 
масса составляет фоновый рисунок (пейзаж), на котором развивается действие 
игры. 

Все ползающие, летающие, стреляющие и прочие двигающиеся изображения в 
компьютерных играх носят название спрайты (от английского слова «зргЁе» - 
эльф). Более точно спрайт можно определить как перемещаемый графический 
объект с неизменными рисунком и размером (см. [2]). Трудно себе представить 
хорошую игру без таких «объектов», поэтому, чтобы научиться писать приличные 
игровые программы, нужно прежде всего освоить технику создания спрайтов. 

Информация о спрайтах, представленная в виде блоков кодов, обычно хранится 
в спрайт-файле, который загружается в память компьютера вместе с игровой 
программой. 

Теперь вы знаете, что шахматные фигуры в игре СВез$ - это спрайты, и 
геометрические фигурки в Тей1з'е - тоже; даже снаряд, вылетевший из ствола 
пушки в программе Тапх - это тоже спрайт. Есть игры, которые буквально 
напичканы спрайтами, отчего игровое пространство, как правило, становится 
сложнее и богаче, а игра - интереснее. Например, в программе ЕЮ хег Ва1А можно 
насчитать семь спрайтов-противников, шныряющих у вас под самым носом, один 
спрайт-самолет, принадлежащий вам, а также спрайты-снаряды, летящие со всех 
сторон. 

О том, как делать спрайты, мы подробно расскажем дальше, здесь же только 
перечислим способы их создания. Самый простой из них состоит в том, чтобы 
нарисовать спрайт на бумаге, а затем вручную закодировать его изображение. 
Другой способ - создать изображение спрайта в любом графическом редакторе 
(например, Ап 5910 или ТВе Ац1${ П), а затем автоматически закодировать его с 
помощью специальной программы - генератора спрайтов. Некоторые генераторы 
спрайтов (например, из пакета программ Газег Ваз1с) позволяют сразу и рисовать и 
кодировать спрайты, то есть включают в себя графический редактор (правда, 
довольно примитивный). 

При помощи графических редакторов можно создавать не только спрайты, но и 
картинки-заставки, а также рисовать пейзажи (которые, впрочем, тоже можно 
назвать спрайтами). В нашей книге приводятся примеры использования для 
перечисленных целей редактора Ах Зато. 

В игровом пространстве возможны любые, самые фантастические действия: 
объекты на экране могут менять цвета, возникать и исчезать, двигаться с 
невероятной скоростью, превращаться в другие объекты и т. д. и т. п. Чтобы ваша 
игра была привлекательной и интересной, не жалейте времени на проработку всех 
объектов игрового пространства. 


Блок взаимодействия с играющим 


Пожалуй, одно из самых привлекательных свойств компьютерных игр 
заключается в том, что играющий может влиять на события, развивающиеся на 
экране - в игровом пространстве. Например, в программе Рас-тап вы можете 
менять направление движения вашего «колобка» по лабиринту: вверх, вниз, вправо 
и влево. А в игре Нушад Ва, помимо управления движением самолета, 
пролетающего над объектами противника, можно еще стрелять по целям, нажимая 
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кнопку джойстика Огонь и сбрасывать бомбу, наклоняя джойстик на себя и 
одновременно нажимая Огонь. Есть игры с еще более сложным управлением. 

Все эти перемещения по экрану и стрельба возможны благодаря той части 
игровой программы, которая носит название блок взаимодействия с играющим. 
Попытаемся в общих чертах представить, как он работает. 

Как известно, в /Х 5рестгат существует два способа управления компьютером: 
с помощью клавиатуры и с помощью джойстика. Когда вы нажимаете клавишу или 
наклоняете ручку джойстика, программа переходит к выполнению той или иной 
своей части. Поворачивая, например, ручку джойстика вправо, вы «включаете» ту 
часть программы, которая перемещает спрайт-самолет вправо. Нажимаете кнопку 
Огонь - и начинает работать та часть программы, которая выводит на экран спрайт- 
ракету и перемещает ее в заданном направлении. 


Блок оценки игровой ситуации 


Во время игры на экране появляются не только предметы и персонажи, 
задействованные в сюжете, но и л выводится различная дополнительная 
информация для играющего. Так, в Тей15’'е на экран выводятся набранные 
играющим очки. В программе Шо Тре Еадез Мез сообщается о количестве 
патронов, ключей от помещений, числе ранений и числе набранных очков. В Юхег 
Ва! программа информирует о количестве оставшегося топлива в самолете, числе 
жизней и набранных очках. 

Несмотря на болышое разнообразие игр, есть нечто общее, что объединяет 
выводимую на экран информацию: она представляет собой оценку игровой 
ситуации. Следовательно, в программе должна быть часть, которая оценивает 
действия играющего на всех этапах игры и выводит на экран результаты этой 
оценки. В большинстве игр ведется подсчет числа очков, что позволяет легко 
выяснить, как со временем растет мастерство играющего или сравнить силу 
нескольких игроков. 

Мы попытались выделять наиболее важные части игровой программы для того, 
чтобы лучше понять, как она работает. А это, в свою очередь, поможет более четко 
и осмысленно подходить к созданию собственных игровых программ. В следующих 
главах мы подробно поговорим обо всех перечисленных частях программы, то есть 
от вопроса о том, что делает каждая из них, перейдем к вопросу о том, как сделать 
эти части и соединить их между собой. 
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2. ЗАСТАВКА 


Заставок разного рода можно придумать великое множество. Все зависит от 
вашего опыта и фантазии, а также от того, черно-белый или цветной монитор 
(телевизор) имеется в вашем распоряжении. Можно выделить заставки, состоящие 
из одного кадра и заставки с двумя и более кадрами. В последнем случае возможна 
как автоматическая их смена по мере выполнения программы, так и смена после 
нажатия какой-либо клавиши. 

Прежде чем начать конкретный разговор, необходимо сказать несколько слов о 
строении экрана, формируемого вашим 5рессу (рис. 2.1). Вы, конечно, уже 
заметили, что не вся площадь экрана используется для вывода различных надписей 
и картинок. Особенно хорошо это заметно во время загрузки программ с 
магнитофона. Картинка появляется во внутренней области, называемой рабочим 
экраном (или просто экраном), а внешнее поле, по которому во время загрузки 
бегут разноцветные полосы, именуют бордюром. С бордюром дела обстоят 
достаточно просто: единственное, что можно с ним делать - это менять его цвет 
(полосы получаются при очень быстрой смене цветов). Поэтому основное 
внимание уделим рабочему экрану. 

Если ваш монитор позволяет получить достаточно резкое изображение, то вы 
можете заметить что оно строится из отдельных точек, больше похожих на 
маленькие квадратики. Эти точки программисты называют пикселями. Символы, 
которые вы вводите с клавиатуры, вписываются в стандартные по размерам и 
положению площадки - знакоместа, причем размер каждого знакоместа - 8х8 
пикселей. При разбивке рабочего экрана на знакоместа получается 24 строки и 32 
столбца. Но в основном при написании программ на Бейсике используются только 
22 верхние строки, называемые основным экраном. Оставшиеся две нижние 
строки имеют особое назначение: они используются для набора и редактирования 
строк программы, а иногда в них появляются различные сообщения. Эти две 
строки носят название служебное окно. 


Пиксель 
Основной экран 


Знакоместо 


Служебное окно 
Рис. 2.1. Строение экрана 7.Х 5ресгат 
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Вернемся теперь к нашим баранам и рассмотрим вначале простейшие заставки. 


Простейшие заставки 


Прежде чем включать компьютер и начинать писать программу, есть смысл 
взять лист клетчатой бумаги, очертить на нем поле размером 32 х 24 клетки и 
попытаться изобразить на этом поле все то, что вам хочется увидеть на экране, 
вписывая буквы в клетки. Тем самым вы сэкономите массу времени, так как 
взаимное расположение слов и букв, размеры рамок и других элементов заставки с 
листа легко перевести на язык цифр, а затем и в строки программы. 

Пусть предполагаемая заставка имеет вид, показанный на рис. 2.2. 


Рис. 2.2. Пример заставки 1. 

Для воплощения этой картинки на экране нужно записать координаты (номера 
строк У и номера столбцов Х) первых букв слов или предложений. Например, слово 
ЗАМКТ-РЕТЕКЗВОКС должно быть напечатано на заставке в первой строке, 
начиная с восьмой позиции по горизонтали, а слово СОМТКОГУ - в 12-й строке, 
начиная с 5-й позиции по горизонтали. Проделав эту работу до конца, можно 
выбрать цвет каждой надписи, цвет фона экрана и цвет бордюра (будем считать, 
что вы работаете с цветным монитором). 

Теперь можно переходить к написанию программы, которая выводит на экран 
задуманное изображение. Программу желательно писать таким образом, чтобы се 
строки шли в той же последовательности, что и строки текста заставки на экране. 
Такой способ построения позволяет при возникновении какой-либо ошибки легче 
ее обнаружить и исправить. Начнем работу с того, что попытаемся перечислить те 
действия, которые должен выполнить компьютер для осуществления нашей 
задумки. 

1. Окрасить бордюр в синий цвет, установить синий фон экрана и желтый цвет 
надписей на нем. 

2. Напечатать в 1-й строке экрана, начиная с 8-й позиции: ЗАМКТ-РЕТЕКЗВОКВС. 

3. Напечатать 24 пробела в 5-й строке экрана, начиная с позиции 4, закрасив их 
голубым цветом. 

4. Напечатать в строке 6 с 4-й позиции красными буквами на голубом фоне: 

ЕГЕРНАКМТ 

и один пробел черным цветом для создания эффекта тени. 

5. В строке 7, начиная с позиции 4, напечатать 24 пробела голубым цветом и 
один - черным. 

6. Вывести нижнюю границу тени: 24 пробела черным цветом в 8й строке, 
начиная с 5-й позиции. 


7. Напечатать в строке 12 с позиции 5: 
СОМТНОЕЗ: ЦР...... 0 
8. В строке 14 с 18-й позиции напечатать: 
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О0М№....А 
9. В строке 16с 18-й позиции - 
ЕЕРТ: +0 
10. В строке 18 с 18-й позиции - 
АТСНТ...Р 
11. В строке 20 с 18-й позиции - 
РТАЕ; го 3М 
12. Напечатать в служебном окне (в самой нижней строке экрана) фиолетовым 
цветом фразу 


РАЕЗ$ АМУ КЕУ ТО СОМТТМОЕ 

(нажмите любую клавишу для продолжения), 

отступив от левого края экрана три знакоместа. 

13. Дождаться нажатия любой клавиши для перехода от заставки к следующей 
части игровой программы. 

14. Очистить экран. 

В принципе, это уже и есть программа, остается только перевести ее на язык 
Бейсик, то есть заменить слова соответствующими операторами. И если вы 
знакомы с английским языком, то задача не покажется вам сложной. В любом 
случае, по мере изучения операторов Бейсика полезно составлять таблицу, кратко 
поясняя для себя действие каждого оператора. Такую справочную таблицу мы 
поместили в Приложении 2. 

Наша программа начинается предложением «окрасить бордюр в синий цвет» 
Бордюр по-английски - ВОВКПЕК, а цвет, как вы узнаете позже, гораздо удобнее 
задавать числом, нежели определять словом. Приведем таблицу кодировки цветов, 
принятую в ИХ 5ресгат: 


0 - черный, 4 - зеленый, 
1-синий, 5 - голубой, 
2 - красный, 6 - желтый, 
3 - фиолетовый, 7 - белый. 
Таким образом, синий бордюр можно получить, введя в программу оператор 
ВОВОЕВ 1 


Поэкспериментируйте с этим оператором, вводя его с клавиатуры с 
различными кодами цвета и нажимая клавишу Ещег. Посмотрите, как будет 
меняться цвет бордюра. 

Цвет фона (или «бумаги») определяется цветом «выключенных» пикселей, а 
«включенные» пиксели задают цвет тона - «чернил». Предложение «установить 
синий фон экрана» переводится на Бейсик как 

РАРЕВ 1 
а «установить желтый цвет надписей» - как 
ТМК 6 
Однако нужно помнить, что эти операторы, в отличие от ВОВПЕК, не вызывают 


немедленного изменения цвета экрана, они лишь задают цвета или иначе - 
атрибуты) для дальнейших действий. Изменение цвета станет заметно, например, 
после очистки экрана. Команда «очистить экран» на английский язык переводится 
как СТЕАК 5СКЕЕМ, а Бейсик понимает это предложение в сокращенном виде: 
СТ. 

Итак, введем первую строку нашей программы, закончив ввод нажатием 


клавиши Ещег. Строка будет выглядеть так: 
10 ВОВОЕВ 1: РАРЕВ 1: ТМК 6: (15 
Обратите внимание на то, что в каждой строке Бейсика может быть несколько 


операторов, но в этом случае они должны отделяться они друг от друга лвоеточием. 
Выбор номеров строк не имеет принципиального значения, но лучше начинать с 
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10-й строки и дальше использовать номера 20, 30, 40 и г. д. Это позволит при 
необходимости вставить в середину программы недостающие строки, не 
перенумеровывая остальных. 

Теперь вслед за первой строкой программы нам нужно написать несколько 
строк, которые выводят на экран много разных надписей. Описывая план 
действий, мы использовали слово «напечатать» - по-английски РЕПМТ. Так же 
выглядит и оператор, выводящий на экран всевозможные буквы, цифры, знаки 
препинания и прочие символы. Текст, который требуется напечатать, заключается 
в кавычки и следует за оператором РЕИМТ. Например: 

РВТМТ “Рог ехамрТе” 

Если специально не указывать, в какое место экрана выводить текст, оператор 
РЕАПМТ начинает печатать его с так называемой текущей позиции печати, которая 
определяется предыдущими операторами. Так, после очистки экрана оператором 
СТ$ текущей становится позиция с координатами (0, 0), которым соответствует 
верхний левый угол экрана (нулевая строка, нулевой столбец). 

Для того, чтобы напечатать текст в нужном месте, служит директива АТ с 
номером строки и столбца, добавляемая к оператору РЕП\УТ. А между АТ и текстом 
обязательно нужно ставить точку с запятой. Например, строка программы 

РЕТМТ АТ 10, 8; "Рог ехатр1е” 

напишет фразу Рог ехатр/е в десятой строке, отступив от левого края экрана 8 
знакомест. После выполнения этого оператора текущая позиция переместится на 
начало следующей строки экрана. 

Исходя из сказанного, нетрудно догадаться, что вторая строка нашей 
программы должна иметь вид: 

20 РЕТМТ АТ 1, 8; "ЗАМКТ-РЕТЕВЗВИВб” 

Как вы заметили, оператор РЕПМТ выводит надписи, не изменяя цвета экрана. 
Точнее, он печатает символы текущим цветом, а именно тем цветом, который был 
указан операторами РАРЕК и ПМК в начале программы. Как уже говорилось, эти 
операторы не изменяют цвет всего экрана, а влияют на выполнение последующих 
операторов, изменяющих вид экрана. Они оказывают действие, в частности, и на 
оператор РЕПУТ. Учитывая это, следующую строку программы можно было бы 
реализовать слелующим образом: 

РАРЕВ 5: РАТМТ АТ 5, 4; "ППАППАППАППАППАППАППАЛАИ” 

Но в этом случае нам пришлось бы часто изменять цвет фона для печати. 
Гораздо проще воспользоваться возможностью временного изменения цвета и не 
заботиться о необходимости его восстановления: 

30 РЕТАТ АТ 5,4; РАРЕВ 5; "ППАППАППАППАППАППАППАТО” 

Тогда голубым цветом будут напечатаны только те символы, которые следуют за 
данным оператором РАПМТ, а текущие атрибуты при этом не меняются. 

Еще нагляднее в этом плане следующая строка. Вместо 

40 РАРЕВ 5: ТМК 2: РАТМТ АТ 6, 4; 
"ППППЕ Е ЕРНА № ТИПППП”.РАРЕЯ 0: РАТМТ АТ 6,28; 
"”"; Кб 
можно написать 
40 РЕТАТ АТ 6,4; РАРЕВ 5; ТМК 2; 
"ППППЕ Г ЕРНА № ТППППП”, РАРЕВ 0;” “ 
Аналогично пишутся и две следующие строки программы: 
50 РАТМТ АТ 7,4; РАРЕВ 5; "ППАППАППАППАППАППАПАЛПАИ”; 
РАРЕН 0;” " 


' Если в программе потребуется ввести более одного пробела подряд, то для 
удобства они будут обозначены символом П. 


2. ЗАСТАВКА 14 


60 РНТМТ АТ 8,5; РАРЕН 0; "ПППППААПППППЛААПППППЛААИ” 

Дальнейшие строки печатают текст текущими цветами (синий фон, желтый 

тон), и ничего нового в них не встречается: 
70 РАТМТ АТ 12, 5; "СОМТНОГ$ : ППППУР. ..... 0” 
80 РАТМТ АТ 14, 18; "ВОММ....А” 
90 РНТМТ АТ 16.18; "ЕРТ....0” 
100 РАТМТ АТ 18, 18; "ВТаНТ...Р” 
110 РВТМТ АТ 20, 18; "ЕТВЕ....М” 

Часто бывает так, что в поле основного экрана не хватает одной-единственной 
строки, и требуется что-то напечатать в строках служебного окна. Директива АТ 
допускает использование номеров строк, не превышающих 21, иначе компьютер 
обидится и обругает вас нехорошими словами, например, 

Ои{ оЁ эсгееп 
или 
Титедег ой оР гапде 

Выйти из положения можно, если после слова РЕПМТ поставить #0 и далее - 

требуемый текст. Например: 
РВТМТ #0; “Рог ехамр1Те” 

В такую строку можно вставлять операторы ПМК и РАРЕК. 

Что же касается текущих атрибутов в служебном окне, то они зависят от цвета 
бордюра, а операторы ПМ\К и РАРЕК (взятые отдельно, без РЕПУТ) не оказывают на 
них никакого влияния. Цвет фона в служебном окне тот же, что и цвет бордюра, а 
цвет тона - контрастный к цвету фона, то есть при черном, синем, красном или 
фиолетовом бордюре устанавливается белый тон, а при остальных цветах - черный. 

Таким образом, строка 

120 РАТМТ #0; ТАК 3; "ПППРВЕЗ$ АМУ КЕУ ТО СОМТТМИЕ” 

выведет в нижнюю строку экрана фиолетовым цветом фразу, заключенную в 
кавычках. 

Чтобы зафиксировать на экране изображение заставки, нужно остановить 
выполнение программы после строки 120. Добиться этого можно несколькими 
способами, но самый простой основан на особенности оператора 

РАЦЗЕ (пауза) 

останавливающем выполнение программы на определенное время, 

исчисляемое в 50-х долях секунды. Например, оператор 
РАЦЗЕ 50 

даст задержку ровно в одну секунду. Особенность этого оператора заключается 
в том, что его действие может прекращаться при нажатии на любую клавищу, 
кроме Сар$ ЭМИ и 5утЬо] ШИ. Если же в операторе РАЧЪФЕ задать значение 0, то 
получится бесконечная пауза и программа будет ожидать нажатия любой клавиши, 
после чего перейдет к выполнению оператора, следующего за РАОЦЪЕ. 

Исходя из этого, следующая строка нашей программы может иметь вид: 

130 РАЦЗЕ 0 

Дальше должна начинаться собственно игра, но поскольку сейчас нас 
интересуют заставки, то на этом мы пока и закончим, очистив предварительно 
экран: 


140 (15$ 
Упомянем здесь еще об одном операторе - КЕМ. Он позволяет программисту 
вносить в текст программы различные пометки - комментарии (например, 


поясняющие назначение отдельных частей программы). Все, что записано после 
КЕМ и до конца строки, не влияет на выполнение программы, а только помогает 
программисту в последующей работе над ней. 
Итак, нашей заставке соответствует программа: 
Программа 1. ЗАСТАВКА 1. 
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10 ВОЛОЕЯ 1: РАРЕВ 1: ТАК 6: (15$ 
20 РЕТАМТ АТ 1, 8; "Запк*-Рефегзбиго” 
30 РЕТМТ АТ 5,4; РАРЕН 5; "ПППППАППППППЛАПИПППОЛААИ” 
40 РАТМТ АТ 6,4; РАРЕВ 5; ТМК 2; 
"ППППЕ Г ЕРНА № ТППППП”; РАРЕН 0;”_ ^ 
50 РНТМТ АТ 7,4; РАРЕН 5; “ППППППАПППППАААППППЛАААИ” 
РАРЕН 0;”_” 
60 РНТМТ АТ 8,5; РАРЕН 0; "ПППППАПАПППППЛААПЛИПЛЛО” 
70 РАТМТ АТ 12,5; и ППППОР ри 0" 
80 РВТИТ АТ 14, 18; "ВОШМ. . 
90 РВТАТ АТ 16, 18; "ЕЕРТ.. 5. 
100 РВТМТ АТ 18, 18; 'АТСНТ.. 
110 РЕТМТ АТ 20, 18; "ЕТАЕ.. И 
120 РАТАТ #0; ПК 3; "ПППРВЕЗЗ АМУ КЕУ ТО СОМТТМУЕ” 
130 РАЦЗЕ 0 
140 (1$ 

Запускается программа оператором КОМ, который вводится непосредственно с 
клавиатуры, после чего нажимается клавиша Ещег. 

И вот работа над заставкой закончена. Вы смотрите на экран, не веря своим 
глазам: набор строк вдруг превратился в яркое красочное изображение. Если же в 
эту программу удастся внести что-то свое, ценность ее еще больше возрастет, и вам 
наверняка захочется записать ее на ленту. Наберите слелдующую строку: 

ЗАМЕ “ЕТЕРНАМТ” 
На экране появится надпись 
ОТагЕ фаре тПеп ргезз апу Кеу 

напоминающая о том, что нужно включить магнитофон на запись и нажать 
любую клавищу. 

После записи программы ее можно загрузить, как и любую другую, введя с 
клавиатуры оператор 

[ОАО ”" 
или 
[ОАВ “ЕГЕРНАМТ” 

Если загрузка пройдет нормально, компьютер скажет 

0:0К 

но программа не запустится: нужно выполнить еще оператор КОМ. 

Впрочем, программу можно записать на ленту и таким способом, что после 
загрузки она автоматически запустится (этот способ называется «запись с 
автостартом»). Для этого нужно выполнять оператор ЗАУЕ с ключевым словом 
ИМЕ: 


ЗАМЕ “ЕТЕРНАМТ” |1ТМЕ 10 

Тогда после загрузки программа автоматически запустится со строки 10 и 
выведет на экран заставку. 

Прежде чем перейти к следующей заставке, давайте отвлечемся от практики и 
немного поштудируем теорию. 

К наиболее важным средствам программирования относятся так называемые 
циклы. Циклы могут быть организованы по-разному, но чаще всего для этого 
пользуются конструкциями типа ЕОК...МЕХТ. Попробуйте, например, набрать и 
выполнить такую программку: 

10 РОН №=1 ТО 5 5ТЕР 1 
20 РВАТМТ "7Х Зресегим” 
30 МЕХТ № 

Компьютер напечатает на экране слово «ИХ 5рестат» пять раз. 

Циклы применяются в игровых программах очень часто, например, для 
перемещения объектов, плавного изменения различных характеристик (скажем, 
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цвета), создания звуковых эффектов и т. д. Переменная, следующая за оператором 
ВОК (в приведенном примере - переменная М), называется управляющей, а запись 
М=ТТО 5 ТЕР 1 указывает, в каких пределах эта переменная будет изменяться 
(запись 1 ТО 5 означает, что переменная изменяется от 1 до 5 включительно) и с 
каким приращением, или иначе - шагом (5ТЕР 1). Правда, в данном случае шаг 
можно было бы и не указывать, так как по умолчанию он принимается равным 
единице. Далее выполняются все операторы до оператора МЕХТ, который 
изменяет управляющую переменную на величину шага, и если она не превысила 
конечного значения (в нашем случае - 5), программа вновь переходит к 
выполнению оператора, следующего за РОК. 

В приведенном примере переменная М указывает лишь на количество 
повторений, но ее можно использовать и внутри цикла: 

10 РОВ №=0 ТО 21 
20 РАТАТ АТ М, 0; "пе: “; № 
30 МЕХГ № 

Здесь управляющая переменная изменяет позицию печати при выводе на 
экран. Кроме того, этот пример демонстрирует способность оператора РАПМТ 
печатать на экране не только слова, но и числа: в начале каждой строки на экране 
появится слово те: с номером этой строки. 

Переменные вообще широко используются в программировании для описания 
любых изменяющихся величин (например, для определения координат 
перемещающихся по экрану объектов или подсчета очков, заработанных игроком), 
поэтому необходимо научиться правильно обращаться с ними. Прежде всего, 
переменную нужно определить, то есть присвоить ей какое-то значение. Словами 
это можно выразить так: «Пусть переменная А равна двум». В переводе на язык 
Бейсик это будет выглядеть как 

ГЕТ А=2 

Изменить значение переменной можно с помощью того же оператора ГЕТ: ГЕТ 
А=А-? 

Это означает, что к переменной А (которая равна 2) прибавляется число 7, а 
полученный результат (число 9) присваивается той же переменной А. Убедиться в 
этом можно, выполнив оператор 

РАТМТ А 

На экране появится число 9. 

В Бейсике используются не только числовые, но и символьные переменные, с 
помощью которых можно обрабатывать любые последовательности символов - 
строки. Внешне символьная переменная отличается от числовой значком $, 
стоящим после ее имени, например, А$. Значение символьным переменным 
присваивается также с помощью оператора ГЕТ: 

ГЕТ А$="5г1п0” 

В этом примере переменной А$ присваивается значение «Зита». Это можно 

проверить, выполнив 
РЕТМТ А$ 
На экране появится надпись 59119 


В Бейсике вы можете пользоваться не только отдельными переменными, но и 
целыми списками изменяемых величин. Такие списки называются массивами. 

Предположим, в вашей игрушке участвуют десять персонажей. Для описания 
координат всех десяти объектов вам понадобилось бы завести двадцать 
переменных (по две переменные на объект): Х1, У1, Х2, У2, ...Х10, У10. Понятно, что 
это не слишком удобно. Гораздо проще завести два списка по десять элементов в 
каждом: Х (10) и У(10), а затем выбирать требуемое значение, задавая только индекс 
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(порядковый номер объекта). Но предварительно нужно объявить массив, иначе 
говоря, указать компьютеру размеры списка. Делает это оператор ОМ: 
ОТМ Х(10): ОТМ У(10) 

Лалее при помощи все того же оператора ТЕТ элементам массива 

присваиваются необходимые значения. Однако если писать 
ГЕТ Х(1)=10: ЕЕТ \(1)=18 ЕЕТ Х(2)=8: ЕЕТ \(2)=20 
ГЕТ Х(10)=3: ЕЕТ \(10)=3 

то удобства, о которых только что говорилось, будут весьма сомнительны. 
Избежать длинной цепочки присваиваний позволяют операторы ВРАТА и ВКЕАПО. 

Сначала в операторе РАТА через запятую перечисляются значения для 
присваивания (данные), а затем они считываются из памяти оператором КЕАШО. В 
этом случае можно использовать цикл: 

10 ОТМ Х(10): ОТМ У(10) 

20 ЕОВ М=1 ТО 10 

30 ВЕАБ Хх: ВЕАО У 

40 ГЕТ Х(№)=Х: ЕЕТ У(№)=\ 

50 МЕХТ № 

60 БАТА 10, 18,8,20,11,7,5, 12,3,0,2,9,7,1,6, 15,9,5,3,3 

В строке 30 считывается пара значений Х и У из списка, приведенного в строке 
60 после оператора РАТА, а затем в строке 40 эти значения присваиваются М-м 
элементам массивов Х(10) и У(10). 

Можно поступить еще проще, заменив строки 30 и 40 на одну строку: 

30 ВЕАБ Х(№): ВЕАО У(№) 
или даже 
30 ВЕАО Х(М№), У(М№) 

Нужно заметить, что строки с оператором РАТА могут располагаться в любом 
месте программы. Этот оператор не выполняется (как и оператор КЕМ) и служит 
лишь для хранения данных. 

После заполнения массива его элементы можно использовать в программе. Для 
примера выведем все значения массива на экран в два столбца, добавив к 
предыдущей программе строки: 

100 РОВ №=1 ТО 10 
110 РАТМТ "Х(”; М; ") = ";Х(№, "УС"; №;") = ";У(М) 
120 МЕХТ № 

Обратите внимание на запятую в строке 110. Если в операторе РКИМТ 

встречается запятая, то текущая позиция печати перемещается на сере- 


Рис. 2.3. Пример заставки 2. 
дину экрана или в начало следующей строки, в зависимости от того, в первой 
или во второй половине экрана был выведен последний символ. 
Говоря о массивах, можно еще добавить, во-первых, что они, так же как и 
переменные, могут быть не только числовыми, но и символьными, а во-вторых, - 
что они могут иметь несколько измерений. Примером двухмерного массива может 
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служить поле экрана, если мы зададим символьный массив ОМ 5$(22,32), который 
описывает 22 строки по 32 символа в каждой. 

Теперь, немного подучив теорию, закрепим ее практикой на примере создания 
еще одной, более сложной заставки. По ходу дела мы познакомимся еще с 
несколькими операторами Бейсика и новыми приемами программирования. 

Предположим, что на экран необходимо вывести изображение, которое вы 
видите на рис. 2.3. Главное отличие этой заставки от предыдущей заключается в 
том, что информация о назначении клавиш последовательно появляется в 
специальной рамке. Время, отводимое на вывод сообщения о каждой клавише, 
ограничено, и мы видим постоянно сменяющие друг друга надписи: 


> 
|=) 


=эоро 
Г 
Е 
Г] 


Такой прием удобен в тех случаях, когда большая часть заставки занята 
надписями и картинками, а количество клавиш управления, о которых необходимо 
сообщить, велико. 

Начнем с того, что окрасим экран в черный цвет (фон) и выберем для надписей 
зеленые «чернила» (тон), как мы это делали в предыдущей программе: 

10 ВОВОЕВ 0: РАРЕВ 0: ТАК 4: (15 

Затем обведем основной экран двойной рамкой, как показано на рисунке. Для 
изображения линий в Бейсике служит оператор ОКАМ/ (по-английски «чертить»). 
Попробуйте, например, выполнить оператор 

ОВАМ 50, 100 

От нижнего левого угла экрана протянется линия, причем ее длина по 
горизонтали составит 50 пикселей, а по вертикали - 100. Теперь очистите экран 
командой СТ5 или просто нажав Ещег и выполните строчку: 

ОВАМ 50, 100: ОВАМ 50, 100 

На экране появится рисунок, похожий на букву Л. Следовательно, оператор 
ОРКАМ/ вычерчивает линию от последней поставленной точки. Поэтому прежде, чем 
рисовать первую линию на экране, нужно поставить точку, от которой протянется 
отрезок прямой. Точки ставит оператор РГОТ, после которого через запятую 
указываются координаты экрана: сначала по горизонтали, затем по вертикали. 
Последующие линии можно рисовать, как показано в предыдущем примере, от 
конца уже проведенной. 

Итак, началом координат для операторов РГОТ и РКАМ/ служит нижний левый 
угол основного экрана (лве нижние строки служебного окна при графических 
построениях не используются). Точки и линии не привязываются к знакоместам и 
могут рисоваться в любом месте, поэтому измерение здесь ведется в пикселях. 

В строке 

20 РОТ 0,0: ОНАМ 0, 175: ОВАМ 255,0: ОВАМ 0, -175: ОВАМ -255,0 

сначала ставится начальная точка в левый нижний угол основного экрана (РГОТ 
0,0), затем от этой точки проводится вертикальная линия вверх до верхней границы 
экрана (РКАМ/ 0,175), потом от конца предыдущей линии чертится горизонтальный 
отрезок до правой границы экрана (РКАМ/ 255,0), а операторы РКАМ/ 0,-175 и 
ОКАМ/ -255,0 замыкают рамку. Аналогично рисуется и внутренняя рамка. 

30 РЫТ 2,2: ОВАМ 0, 171: ОВАМ 251,0: ОВАМ 0,-171: ОВАМ -251,0 
После этого внутри рамки делаем надписи в соответствии с рисунком: 
40 РАТМТ АТ 4,9; ТМК 2; 5 0КО- ВАМ" 


50 ТАК 6: РАТАМТ АТ 9, 5; "ЗАМКТ-РЕТЕВЗВУВСПИП1993” 
60 РАТМТ АТ 11, 7; "АУТНОВ: Туапоу Туап” 
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70 РАТМТ АТ 20,3; ТМК 5; "РВЕЗ$ АМУ КЕУППТО СОМТТМИЕ” 

Далее устанавливаем синие «чернила» и вычерчиваем маленькую рамку, в 

которой будут появляться надписи о назначении клавиш: 
80 ТК 1 
90 РЕОТ 40,45: ОНАМ 0,14: ОВАМ 175,0: ОВАМ 0,-14: ОВАМ -175,0 

Теперь начинается самое интересное. Зададим двухмерный символьный 
массив, состоящий из шести строк (по количеству выводимых надписей) по девять 
символов в каждой (максимальная длина надписей), и в цикле заполним его из 
списка РАТА: 

100 ОТМ Р$(6,9) 110 РОЯ №=1 ТО 6 120 ВЕАО Р$(№) 130 МЕХТ № 
110 ВАТА "0 - УР”, "А - 00И№", "0 - ТЕРТ”, "Р_- АТО@НТ", “М - РТВЕ",” Е - Е№0” 

Затем начнем последовательно выводить в маленькой рамке надписи из 
созданного массива. Нам нужно сделать шесть надписей, поэтому организуем цикл, 
повторяющийся шесть раз, в котором управляющая переменная изменяется от 1 до 
6, чтобы можно было последовательно обращаться к строкам массива с первой по 
шестую: 

150 РОВ №=1 706 
250 МЕХТ № 

Что же у нас будет твориться внутри этого цикла? Можно поступить по- 
разному, но мы сделаем так: каждую надпись будем выводить новым цветом, и не 
сразу, а по одной букве. Причем и цвет, и очередную букву выберем случайным 
образом. Для получения случайного числа в Бейсике используется специальная 
функция КМО. Она генерирует случайные числа в диапазоне от нуля до единицы 
(но всегда меньше 1). Попробуйте в качестве опыта выполнить такую строку: 

РОН М=1 ТО 20: РАТМТ ВМ: МЕХТ № 

На экране появится столбик чисел, изменяющихся без видимой 
закономерности. Если вы еще раз выполните приведенную строку, числа окажутся 
совершенно другими. Чтобы получить случайное число из заданного диапазона, 
воспользуемся следующей формулой: 

В =шш- КМО\* (тах-п111) 

гле шш - нижняя, а тах - верхняя граница диапазона. Например, случайное 
число от 5 до 12 можно получить с помощью строки: 

ГЕТ Н=5+АЮО»7 

Однако функция К МО далеко не всегда дает целые числа, а в нашей задаче числа 
должны быть именно целыми. Округлить полученное число до ближайшего 
меньшего целого поможет другая функция Бейсика - ПМТ. В случае положительных 
чисел ПУТ отбрасывает дробную часть числа, оставляя целую. 

Теперь применим все вышесказанное к нашей заставке. Будем печатать 
надписи цветом от красного (код 2) до белого (код 7). Случайное число от 2 до 7 
получится в результате вычисления такого выражения: 

2+В№ + (7-2) 

Но нам еще нужно это число округлить. Если отбросить целую часть, то числа 7 
мы никогда не получим, так как результат всегда будет хоть чуть-чуть, но меньше 
семи. Поэтому нужно написать так: 

ТАТ (2+8№0»(8-2)) 
А применительно к цвету «чернил»: 
160 ТМК ТМТ (2+8№+6) 

Эта строка, кроме всего прочего, демонстрирует преимущества числового, а не 
«словесного» задания цвета. 

Покончив с цветом, перейдем теперь к надписям. Чтобы они появлялись 
постепенно, по одной букве, напишем еще один цикл и «вложим» его в уже 
описанный. Так как строки массива состоят из девяти символов, повторим цикл 
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девять раз: 
170 РОВ М=1 ТО 9 210 МЕХТ И 

Внутри этого цикла сначала определим порядковый номер очередной 

выводимой буквы и запомним его в переменной А: 
180 ГЕТ А=ТМТ (1+А№0»9) 

Вся надпись у нас должна располагаться в строке 15 экрана, начиная с 12-й 
позиции. Следовательно, буква с номером А должна быть напечатана в позиции 
11 +А: 

200 РЕТМТ АТ 15, 11+А; Р$(М, А) 

Запись Р$(М,А) указывает на букву с номером А из строки М (управляющая 
переменная внешнего цикла) массива Р$(6,9). 

Поскольку число А случайное, то не обязательно все буквы строки Р$(М) будут 
напечатаны. Чтобы в конце концов фраза оказалась полной, после завершения 
внутреннего цикла на экран выводятся все символы строки: 

220 РАТМТ АТ 15,12; Р$(№) 

Теперь нужно остановить на время выполнение программы, чтобы успеть 

прочитать появившийся текст. Строка 
230 РАЦЗЕ 100 

даст задержку в две секунды (100:50 = 2). После этого сотрем надпись, напечатав 
поверх нее 9 пробелов: 

240 РЕТМТ АТ 15, 12; "ППППАПАПИ” 

После окончания цикла его нужно повторять снова и снова до тех пор, пока не 
будет нажата какая-нибудь клавиша. Перейти на начало цикла очень просто. Для 
этого допишем строку: 

260 60 ТО 150 

которая переводится на русский язык как «перейти к строке 150», то есть к 
строке, с которой начинается цикл печати надписей в маленькой рамке. 

Но в таком виде программа никогда не закончит свою работу. Чтобы иметь 
возможность выхода из нее при нажатии любой клавиши, вставим во внутренний 
цикл еще одну строку: 

190 ТЕ ТМКЕУ$<>”" ТНЕМ 60 ТО 300 

которая означает: «если символ нажатой клавиши не равен пустой строке (то 
есть нажата любая клавипта), то перейти к строке 300». Более подробно оператор 
ТЕ..ТНЕМ, называемый условным, а также функцию ПМКЕУ$ мы рассмотрим 
позже, а пока ограничимся сказанным. Если же вам уже и так все понятно - тем 
лучше, значит вас как программиста ждет блестящее будущее. Теперь приведем 
«собранный» текст полученной программы: 


Программа 2. ЗАСТАВКА 2. 


10 ВОНРЕВ 0: РАРЕН 0: ТАК 4: С1$ 

20 РОТ 0,0: БВАИ 0, 175: ОВАИ 255,0: ВАМ 0, -175: ОВАМ -255,0 
30 РОТ 2,2: ОВАМ 0,171: ОВАМ 251,0: ОВАМ 0, -171: ОВАМ -251,0 
40 РАТМТ АТ 4,9; ТМК 2; "$ 0КО-ВАМ" 

50 ТАК 6: РАТМТ АТ 9, 5; "ЗАМКТ-РЕТЕВЗВУВСПИП1993”" 

60 РАТМТ АТ 11, 7; "АУТНОВ: Туапоу Туап” 

70 РЕТМТ АТ 20,3; ТАК 5; "РВЕЗ$ АМУ КЕУППТО СОМТТМОЕ” 

80 ТИК 1 

90 РИОТ 40,45: ОВАМ 0,14: ОВАМ 175,0: ОВАМ 0,-14: ОВАМ -175,0 
100 ОТМ Р$(6,9) 

110 РОН М=1 ТО 6 

120 ВЕАБ Р$(№) 

130 МЕХТ № 

140 ВАТА "0 - ЦР”, "А - 00\№”, "О - ЕЕРТ",”Р - ВТЕНТ", "М - РТВЕ",” Е - Е№” 
150 РОН М=1 ТО 6 

160 ЕЕТ С=ТАТ (2+А№0*6) 
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170 РОВ М=1 ТО 9 

180 ГЕТ А=ТМТ (1+В№»8) 

190 ТЕ ТМКЕУ$<>"" ТНЕМ 60 ТО 300 
200 РАТМТ АТ 15, 11+А; ТМК С;Р$(М, А) 
210 МЕХТ М 

220 РАТМТ АТ 15,12; ТМК С;Р$ (№) 
230 РАЦЗЕ 100 

240 РАТМТ АТ 15, 12; "ППППППППИ” 
250 МЕХТ № 

260 60 ТО 150 

300 (1$ 


Бегущая строка 


Для придания заставке большей привлекательности используется ряд приемов, 
о которых должен знать программист. 

Представим себе, что на экране слева направо «бежит» строка, содержащая 
информацию об игре (название, назначение клавиш, автор ит. п.), как это сделано, 
например, в программе К-ТУРЕ. 

Эффект бегущей строки можно получить, например, таким образом. Первым 
делом создадим символьную переменную, содержащую тот текст, который мы 
хотим видеть в «бегущей» строке. Затем последовательно будем выводить часть 
текста длиной 32 символа в одно и то же место экрана, например, в служебное 
окно. Первый фрагмент должен содержать символы с 1-го по 32-й, следующий - со 
2-го по 33-й и так далее, пока не закончится текст. В результате каждая буква будет 
как бы перемещаться справа налево. 

Ниже приведен листинг программы, реализующей этот принцип. 

Программа 3. БЕГУЩАЯ СТРОКА. 


10 ВОНРЕВ 1: РАРЕН 1: С1$ 

20 ВЕМ --5СВЕЕК--- 

100 ГЕТ В$="ПАПААААААПААПАПППППППППППППААОИ” 

110 ТЕТ А$=В$+"РВОСВАМ: В.5ТВОКА. ..ПППП»»* ОЕМО **х” 
120 ТЕТ А$=А$+” ПАППУР....0, О0М№....А, ТЕРТ....0, ” 
130 ГЕТ А$=А$+"ВТОНТ....Р, ГТВЕ....М, Е№О....Е” 

140 ТЕТ А$=А$+"ППППППАИТНОЕ: Рефгом ТмапППП1993” 

150 ТЕТ А$=А$+” ПАПППППАПППРВЕ$$ АМУ КЕУ ТО СОМТТМУЕ” 
160 ТЕТ А$=А$+В$ 

200 РОВ №=1 ТО ГЕМ 4А$-31 

210 РАЦЗЕ 7: ТЕ ТМКЕУ$<>"” ТНЕМ 60 ТО 300 

220 ТЕТ В$=АЗ (№ ТО №+31) 

230 РАТМТ #0;АТ 1,0; Т№К 6; 8$ 

240 МЕХТ № 

250 60 ТО 200 

300 ВЕМ --СОМТТМИЕ--- 


Поскольку вы уже знакомы практически со всеми операторами этой 
программы, здесь и в дальнейшем мы будем использовать принцип построчного 
описания, рассматривая не отдельные операторы, а целые строки или даже группы 
строк программы. Таким образом, если вам понятны функции тех или иных строк, 
можете их пропускать и переходить к следующим. 

10 - установка атрибутов экрана; 

20 - в этом месте могут располагаться строки, рисующие на экране рамки, 
печатающие название игры ит. д.; 

100...160 - в этих строках формируется символьная переменная, содержащая 
текст, который будет выведен впоследствии на экран. Обратите внимание, что 
итоговая фраза здесь получена сложением строк 
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символов. Сложение - это единственное «арифметическое» действие, 
применяемое для обработки символьных переменных. Здесь мы воспользовались 
этой возможностью исключительно для того, чтобы не писать длинную строку 
программы. Кроме того, мы сэкономили память компьютера, дважды использовав 
переменную В$, состоящую из 32 пробелов. Кстати, эти 32 пробела в начале и в 
конце текста нужны для того, чтобы первые буквы постепенно появлялись из-за 
правого края экрана, а последние целиком уходили за левый край; 

200 - начало цикла: переменной М присваиваются начальное и конечное 
значения. Здесь использована новая функция - ГЕМ (от английского слова Гепо{® - 
длина). Она возвращает длину символьной переменной, указанной в качестве 
аргумента этой функции. Здесь она введена для того, чтобы компьютер сам 
выяснял, до каких пор повторять цикл и избавил нас от необходимости 
пересчитывать это значение после внесения каких-либо изменений в текст. 
Конечное значение должно быть на 31 меньше длины текста для того, чтобы в 
конце цикла не выйти за пределы переменной 4$; 

210 - вводится небольшая пауза, составляющая 7/50 секунды для того, чтобы 
строка «бежала» не слишком быстро и ее можно было успеть прочитать. В этой же 
строке проверяется, не была ли нажата какая-либо клавиша; 

220 - основная операция программы. Она носит название сечение, а ее действие 
состоит в выделении из большой строки некоторой ее части - подстроки. Для 
выполнения этого после имени строки в скобках пишется ключевое слово ТО и 
указывается, с какого и по какой символ требуется выделить в подстроку. 


Например, если выполнить оператор 
РАТМТ “РВЕЗЗ$ АМУ КЕУ” (4 ТО 11) 
то на экране появится текст 55 АМУ К, то есть оператор выделил символы с 


четвертого по одиннадцатый (считая пробелы) и напечатал их. Если подстрока 
выделяется, начиная с первого символа, то можно писать: (ТО 6), а если подстрока 
выделяется до конца символьной строки, то допустима запись (4 ТО }; 

230 - в начало строки 1 служебного окна (в самую нижнюю строку экрана) 
желтым цветом выводится подстрока В$, состоящая из 32 символов (ранее В$ была 
выделена из строковой переменной Д$). Так как М - величина переменная, то в 
каждом цикле на одном и том же месте печатается часть строки, со сдвигом на один 
символ вправо, что на " экране создает эффект движения всего текста влево. 

Как видно, в этой строке программы мы применили директиву АТ при выводе 
информации в служебное окно. В этом случае за начало отсчета принимается 
левый верхний угол не всего экрана, а служебного окна. Следует учитывать и то, 
что после очистки экрана позиция печати в служебном окне устанавливается в 
позицию с координатами (1,0), или относительно основного экрана - в начало 
строки 23, самой нижней строки экрана; 

240 - конец никла; 

250 - оператор безусловного перехода на строку 200 заставляет повторить вывод 
всего текста с самого начала, и она будет повторяться до тех пор, пока вы не 
нажмете любую клавишу; 

300 - отсюда может начинаться собственно игра. 


Печатающий квадрат 


Попробуем ввести в заставку еще один эффект, который может сделать ее 
привлекательнее: по экрану слева направо строка за строкой передвигается 
квадратик, за которым появляются буквы и символы какого-либо текста. Такой 
прием, напоминающий работу пишущей машинки, используется, скажем, в игре 
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СНАЗЕ Н.О. 

Осуществить задуманное можно, например, следующим образом. Зададим с 
помощью символьной переменной текст, а затем будем его выводить на экран по 
одной букве, причем впереди символов будем печатать пробел цветом, отличным от 
общего фона, то есть в виде квадратика-знакоместа. Каждая следующая буква 
печатается со сдвигом на одну позицию вправо, затирая при этом напечатанный 
ранее квадратик. Когда строка окажется целиком напечатана, уберем квадратик, 
поместив в соответствующую позицию пробел цвета фона. 

Если понадобится сделать не одну, а несколько надписей таким способом, то 
придется несколько раз писать фрагменты программы, очень похожие один на 
другой. Но это только в том случае, если не знать об одном важном средстве 
структурного программирования - о подпрограммах. 

Подпрограмма - это фрагмент основной программы, предназначенный для 
выполнения конкретных, обычно часто повторяющихся операций. Подпрограмма 
может быть исполнена в любой удобный момент и сколько угодно раз. После ее 
выполнения основная программа продолжает работу с прерванного места. 

Вызываются подпрограммы оператором СО ЗОВ с номером строки начала этой 
подпрограммы, а для возврата в основную программу используется оператор 
ВЕТОВМ. 

Ниже приведен листинг программы «Печатающий квадрат» и следом за ним - 
комментарии к тем строкам, которые могут оказаться не совсем понятными. 

Программа 4. ПЕЧАТАЮЩИЙ КВАДРАТ. 
10 ВОЛОЕН 0: РАРЕН 0: ТМК 6 
20 (1$ 
30 (ЕТ А$="51пс1а1г 2Х Эресегит” 
40 ТЕТ 11пе=0: 60 508 100 


50 (ЕТ А$=" хжжжяж жж жижяжихх 
60 (ЕТ 11пе=2: 60 ИВ 100 

70 (ЕТ А$="0 1982 51пс1а1г Везеагсй [19.” 
80 ТЕТ 11пе=21: 60 $08 100 

АЦЗЕ 0 

0 ТО 200 

Т $=[Е№ А$ 

В М=1 105 

Т В$=А$ (М) 

ТАТ АТ 11пе,М;В$; РАРЕВ 3;" " 
(ЗЕ 1: ВЕЕР 0.002, 20 


(<>) 
> 
ог 


>< 
= 
= 


ТИТ АГ 11те, М; ” ” 
ТОК 
200 (1$ 

30 - присваивание строковой переменной некоторого текстового значения; 

40 - в переменной Ппе задастся номер строки экрана, куда будет выводиться 
текст, затем следует обращение к подпрограмме «печатающий квадрат». Оператор 
СО ЗОВ вызывает подпрограмму, указывая номер строки, с которой она 
начинается. Оператор КЕТОВМ завершает подпрограмму и возвращает управление 
основной программе, на строку, следующую за СО ЗОВ (при первом обращении - 
на строку 50); 

50, 60 - эти строки работают аналогично строкам 30 и 40. Меняется лишь текст и 
номер строки экрана, куда этот текст выводится; 

70, 80 - снова повторение строк 30 и 40; текст выводится в 21 строку; 

90 - программа ждет нажатия любой клавиши; 

95 - безусловный переход на строку 200, откуда начинается следующая часть 


го 
сл 
> 
5 
г > м зомот 


2. ЗАСТАВКА 24 


программы; 

100 - начало подпрограммы. Как уже говорилось, в программировании принято 
выделять некоторые фрагменты программы в подпрограммы, тем более, если 
предполагается, что в процессе работы программы этот фрагмент будет вызываться 
несколько раз. В нашем случае в подпрограмму выделяется вывод на экран 
текстовой переменной. Заметим, что подпрограмма, в свою очередь может 
содержать другие подпрограммы. 

В строке 100 определяется количество символов (букв) в выводимом тексте и 
полученное значение присваивается переменной 5; 

120 - начало цикла, в котором осуществляется побуквенный вывод текста; 

130 - выбор из текста одной буквы, имеющей порядковый номер М; 

140 - печать выбранной буквы в знакоместо с координатами Ппе и М, а затем 
печать фиолетовым цветом квадрата, который всегда будет расположен справа от 
выводимой буквы; 

150 - небольшая пауза, за которой следует пока еще неизвестный оператор 
ВЕЕР. Этот оператор генерирует звуковой сигнал. Основные характеристики 
любого звука - длительность и высота, поэтому после оператора ВЕЕР должны 
указываться два параметра, определяющих эти характеристики. Длительность 
звука (первый параметр) измеряется в секундах, а высота (второе число, стоящее 
после запятой) - в полутонах. Нота «до» первой октавы передастся числом 0. Более 
низкие звуки 

задаются отрицательными числами, а более высокие - положительными. 
Например, оператор ВЕЕР 0.5,10 заставит компьютер воспроизвести звук, 
соответствующий ноте си-бемоль первой октавы, длительностью в половину 
секунды. Добавим к этому, что высота может задаваться не только целыми 
числами. Использование дробей позволит извлекать звуки любой высоты. Правда, 
в нашей программе оператор ВЕЕР используется не в музыкальных целях, а только 
лишь для имитации «стука» клавиш пишущей машинки; 

160 - конец цикла; 

170 - оператор убирает с экрана изображение последнего квадрата в конце 
строки с текстом перед переходом на новую строку; 

180 - возврат в основную программу на оператор, который стоит сразу же после 
оператора СО 50В; 

200 - очистка экрана перед началом следующей части программы. 


Прыгающие буквы 


Если предыдущую программу немного усложнить, то получится еще один 
эффектный прием, который можно использовать при написании заставки. В нем 
каждая строка текста получается из букв, как бы «выпрыгивающих» из-за правого 
края экрана, пока не заполнится строка. Затем все повторяется для второй и 
последующих строк, причем каждая строка отличается по цвету от предыдущей. 
После того, как вы хорошо разберетесь в программе, попробуйте и буквы окрасить 


в разные цвета, причем так, чтобы соседние цвета не повторялись. 
20 ВОНОЕВ 0: РАРЕН 0: С1$ 

40 ТЕТ х=5: ЕТ у=2: ЕЕТ с=6 

50 [ЕТ а$="5ТМСЕАТВ 7Х ЗРЕСТВИМ" 
60 С0 5В 500 

70 ТЕТ х=4: 1ЕТ у=3: ЕЕТ с=3 

80 (ЕТа 
90 60 $1 
100 ГЕТ х=7: ЕЕТ у=6: ЕЕТ с=4 
110 ТЕТ а$="СОМРИТЕН (ТТЕВАСУ” 
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120 60 $08 500 
130 (ЕТ х=5: 1ЕТ у=8 
140 ТЕТ а$="ЕВгоц9й арр11сат10п$” 
150 60 $08 500 

РАЦЗЕ 300: 60 ТО 600 

ВЕМ роаргодгатма 
500 [ЕТ 9=ЕЕМ а$ 


520 РОВ п=30 ТО пчх ЭТЕР -1 
530 РАТМТ АТ у, п; а$ (п); "" 
540 МЕХТ м 

550 МЕХТ п 

560 ВЕТИВМ 

600 (15 

20 - установка цветовых атрибутов экрана; 

40 - операторы присваивания, которые задают координаты первой буквы в 
первой строке текста, а также цвет выводимых букв; 

50 - в символьную переменную а$ помещается текст первой выводимой на 
экран строки; 

60 - обращение к подпрограмме «прыгающие буквы». После ее выполнения 
оператор КЕТОКМ передаст управление на строку 70; 

70...90, 100...120, 130...150 - эти строки выполняют те же операции, что и строки 
40...60; 

400 - все изображение держится на экране 300/50=6 секунд, после чего 
оператор безусловного перехода передает управление в начало следующей части 
программы - на строку 600; 

500 - с этой строки начинается подпрограмма, причем обращение к ней 
происходит четыре раза - по числу выводимых на экран строк текста. Сама строка 
500 определяет количество букв в каждой фразе, и число, полученное в результате 
действия функции ГЕМ, присваивается переменной 4; 

505 - установка цвета для очередной строки; 

510 - начало внешнего цикла по переменной п, в котором устанавливаются 
номера букв, «выпрыгивающих» одна за другой на экран; 

520 - начало внутреннего цикла по переменной ш. Он задает координаты по 
горизонтали места на экране, куда будет выводиться буква при ее лвижении справа 
налево. Так как эта координата должна все время уменьшаться, то в операторе 
РОК...ТО...МЕХТ необходимо задать отрицательный шаг. Как вы помните, шаг 
устанавливается ключевым словом 5ТЕР - число, стоящее за этим словом, задает 
величину приращения управляющей переменной т. Таким образом, в результате 
действия всех операторов строки, координата будет принимать значения 30, 29, 
28,... + Х; 

530 - вывод на экран буквы, имеющей в строке текста порядковый номер п. Так 
как т - величина переменная, то буква будет перемещаться справа налево. Пробел 
в кавычках в конце строки стирает букву на «старом» месте по горизонтали 
(например, на 28-м) перед тем как поставить се на «новое» место (на 27-е); 

540 - конец цикла по переменной т; 

550 - конец цикла по переменной п; 

560 - возврат из подпрограммы - переход к оператору, стоящему сразу за 
оператором вызова подпрограммы СО БОВ. В данном случае переход происходит 
на строку 70, 100, 130 или 400; 

600 - очистка экрана перед началом следующей части программы. 
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Заставка из нескольких кадров 


В солидных игровых программах заставки обычно делаются из нескольких 
кадров, поскольку перед началом игры на экране должно появиться большое 
количество информации и «впихнуть» ее в один кадр практически невозможно. 

Рассмотрим пример подобной многокадровой заставки. В ней три кадра: 
первый выводит на экран название игры (строки 10...470), во втором представлено 
меню (500...690), а в третьем (700...830) - таблица результатов. Кроме того, показано, 
как из меню можно попасть еще в три кадра, причем их число может быть 
увеличено по вашему желанию. 


10 НЕМ ** КаЧг 1 (тазфамка) ** 


20 ВОНОЕВ 0: РАРЕН 0: 
30 ЕЕТ х=7: ЕЕТ с=6 


(1$ 


40 ТЕТ а$="ЗАМКТ - РЕТЕВВИВ@" 


50 60 508 300 
60 РОВ п=0 ТО 13 


70 РАТМТ АТ 13, п;” 19” 


80 РЕТАТ АТ 13, 29-п; "93" 


90 РАЦЗЕ 6 

100 МЕХТ п 

ЕЕР .005,0 
КЗ 


Т с1=0 


м мт мт => 


ооо 


"ххх 


"ххх 


"ххх 


"ххх 


1 
со — © < + М -+ 


РАЦЗЕ 10 


60 ТО 500 


ЕТ 9=ЕМ а$ 


ГЕТ 6$=6$+а$ (п)+ 


ЕХТ п 
ОМЕН 1: ТМК с 
РОВ п=1 ТО 10 


РАТМТ АТ п+1,х; 0$ 


3,0 460 О\ЕВ 0 470 


рн Уя 


(9%) 
| — 
ооо оооо оо оо ооо оо оо ооо 


<о © 


Т с=П (А№0*7+1) 
с=с1 ТНЕМ 60 ТО 150 


ХХ ЖЖЖЖХХ 
хжх [ППххжх 
ЖЖ ЖЖЖЖХХ 


хжжх ххжжхх 


ТЕ ТМКЕУ$="” ТНЕМ 60 ТО 150 


ВЕМ --родргодгамта 1-- 
ЕТ 6$="": ВЕТ с$="” 


РОВ п=1 ТО 9-1 5ТЕР 2 


ГЕТ с$=с$+” “+а$(п+1) 


РАТМТ АТ п,х; ТК 0; 0$ 


ВЕТИВМ 


М *» Кадг 2 (тепи) ** 
Е 


"1 - ЭТАНЕТ САМЕ” 
‚ "2 - АЕБЕНТМЕ КЕУФ” 


Программа 6. МНОГОКАДРОВАЯ ЗАСТАВКА. 


ТМТ АГ 20, 4; "Ргезз апу Кеу Фо сопетпие” 


"ХЖЖХХЖЖХХЖАХЖЖАХХЖКАХЖЖАХЖЖАХЖЖХХ 


"*ППППП»ППАП» ППААА»* ППП» *» ППП» *» ППП» ” 


ххх Жх ЖХ ЖЖ ЖЖ” 
хжж жх жх хх’ 
хжх ППжжх жжжжх х" 


ххх х жж жх хх Хх” 


"ххх жжх [| ППИжжж жжх жж *[ПП**ППж*” 


"ХЖЖХХЖЖХЖЖАХЖЖАХХЖАХЖЖАХЖЖАХЖЖХХ 


РАТАТ АТ 22-п,х; ТАК 0;с$ 420 РВТАТ АТ 21-п,х;с$ 430 РАЦЗЕ 6 440 МЕХТ п 450 ВЕЕР 
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560 РАТМТ АТ 11, 9; "3 - ЕЕМЕЁ" 

570 РАТМТ АТ 13, 9; "4 - ЕМО САМЕ” 

580 ТМК 4 

590 РАТМТ АТ 20, 7; "Ргезз КеуйП(Т - 4)” 
600 ГЕТ 1=0 

610 ТМК с 

620 РАТАТ АТ 3, 13; "ТЕТВТ5" 

630 ГЕТ с=с+1: ТЕ с>7 ТНЕМ ЕЕТ с=1 

640 ГЕ 


ЕТ {=17+1; ТЕ 12200 ТНЕМ 60 ТО 700 
650 ТЕ ТМКЕУ$="1” ТНЕМ 60 ТО 2000 

660 ТЕ ТМКЕУ$="2” ТНЕМ 60 ТО 1000 

670 ТЕ ТМКЕУ$="3” ТНЕМ 60 ТО 3000 

680 ТЕ ТМКЕУ$="4” ТНЕМ $ТОР 

690 60 ТО 610 


> мм 


700 ВЕМ ** Кадг 3 (зсоге) ** 

710 ВЕЕР .05,55 

720 (15 

730 ТМК 6 

740 ЕОН п=1 ТО 9 

750 РЕТМТ АТ п*2+1, 7; "№"; п!" ........ ПО 
760 МЕХТ п 

770 ТЕТ 1=0: 

780 ЕЕТ с=с+1: ТЕ с>7 ТНЕМ (ЕТ с=1 
790 1ЕТ Т=Е+1 

800 ТЕ [>200 ОВ ТМКЕУ$<>"" ТНЕМ 60 ТО 500 
810 ТМК с 

820 РВТМТ АТ 1, 11; "НТ $СОНЕ” 

830 60 ТО 780 

999 ВЕ 

1000 ВЕМ ==== ВЕБЕЕТМЕ КЕУЗ ==== 
1001 ВЕ 

2000 ВЕМ ==== УТАВТ СбАМЕ ==== 

2001 ВЕ 

3000 ВЕМ ==== 1Е\МЕЕ ==== 

3001 ВЕ 


10 - начало фрагмента программы, описывающего первый кадр заставки. Мы 
дадим ему условное имя - НАЗВАНИЕ ИГРЫ; 

20 - установка атрибутов экрана; 

30 - задание переменных, определяющих позицию печати по горизонтали (х) и 
цвет букв (с); 

40 - переменная а$ содержит текст, выводимый на экран подпрограммой, 
начинающейся со строки 300; 

50 - обращение к подпрограмме, разделяющей символы слова из переменной а$ 
на две последовательности, в одну из которых входят знаки, занимающие в слове 
нечетные позиции, а в другую - символы с четными позициями, после чего две 
половинки слова двигаются сверху и снизу навстречу друг другу; 

60...100 - слово «1993» также разбито на две части, которые двигаются в цикле 
слева и справа к средней части экрана. Чтобы за строками «19» и «93» не тянулся 
след, перед «19» и после «93» печатаем по одному пробелу, стирающему 
предыдущее изображение; 

110 - звук, имитирующий удар при соприкосновении символов «19» и «93»; 

120, 130 - установка фиолетовых «чернил» и печать в 20-й строке и 4-й позиции 
слов Ргез$ апу Кеу {0 соппае (для продолжения нажмите любую клавишу); 

140 - задание в переменной с1 цвета, который будем называть предшествующим 
текущему; 

150 - вычисление кода цвета, в который будет окрашено название игры, как 
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случайного числа от 1 до 7 (черный цвет исключается) и присваивание полученного 
результата переменной с. Будем называть этот цвет текущим; 

160 - здесь мы снова сталкиваемся с оператором 1Н.. (ГНЕМ, который носит 
название условного и переводится как ЕСЛИ. .. ТОГДА. Проверяемое условие 
ставится сразу же за ТЕ (например, Х>3, А<18, В$ ="АА"). Если оно соответствует 
действительности, то выполняются операторы, стоящие за ТНЕМ, в противном 
случае управление передается на следующую строку программы. Содержание 
строки 160 можно перевести на русский язык как «если текущий цвет такой же, 
как и предшествующий, то перейти на строку 150». Такая строка введена для того, 
чтобы цвета не повторялись; 

170 - установка текущего цвета в соответствии с переменной с; 

180...250 - печать названия игры (ТЕТВТ5) с помощью звездочек; 

260 - текущий цвет становится предшествующим и запоминается в переменной 
с1; 

270 - пауза 1/5 секунды; 

280 - оператор условного перехода. Если не нажата никакая клавиша, то на 
экране будет напечатано название новым цветом (переход на строку 150). Если же 
какая-нибудь клавиша окажется нажатой, то происходит переход к следующей 
строке программы (290); 

290 - отсюда программа переходит на следующий кадр - его мы назовем МЕНЮ, 
- часть программы которого начинается со строки 500; 

300 - начало подпрограммы вывода слов ЗАМКТ- РЕТЕВЗВОКС; 

310 - двум строковым переменным присваивается значение пустой строки. В 
данном случае это сделано просто для инициализации переменных, чтобы 
впоследствии не появилось сообщение об ошибке Уапа Ле по{ юипа (переменная 
не определена); 

320 - вычисляется количество букв в строковой переменной а$ и полученное 
значение присваивается переменной 4; 

330...360 - цикл, в котором исходная фраза, содержащаяся в переменной а$, 
разбивается на две части, и буквы с нечетными позициями заносятся в Ъ$, а с 
четными - в с$; 

370 - устанавливается объединяющий режим наложения изображений на 
экране. Делается это для того, чтобы в момент сближения двух слов 5$ и с$ 
пробелы одного не стерли буквы другого. Оператор ОУЕВК устанавливает режим 
наложения изображений на экране, причем если аргумент равен: 

1 - изображение накладывается на уже существующее, не стирая 

его; точки пересечения принимают окраску фона; 0 - новое изображение 
стирает уже имеющееся на экране; 

380...440 - в цикле печатаются две половинки исходного слова, помещенного в 
переменную а$, которые сходятся друг к другу сверху и снизу; 

390, 410 - символы, помещенные в переменные Ъ$ и с$ выводятся цветом фона 
(РАРЕК), что равнозначно их стиранию. При этом переменная п во всех строках 
цикла играет роль координаты у; 

400, 420 - вывод символов, помещенных в переменные Ъ$ и с$ на новое место. 
Цвет, которым будет выводиться текст, установлен ранее в строке 370; 

430 - чтобы продвижение слов не было слишком быстрым, внутри цикла 
устанавливается пауза; 

450 - звуковой сигнал; 

460 - установка нормального режима наложения информации (без 
объединения); 


2. ЗАСТАВКА 29 


470 - возврат из подпрограммы к строке, следующей после оператора СО 59В 
300, то есть к строке 60; 

200, 510 - начало нового кадра заставки - МЕНЮ. Его появлению предшествует 
звуковой сигнал; 

520, 530 - очистка экрана, задание цвета букв в тексте; 

540...570 - вывод на экран четырех пунктов меню; 

580 - установка нового цвета символов; 

590 - вывод на экран фразы, которая по-русски означает «нажмите клавиши 1- 
4»; 

600 - присваивание переменной 1 выполняющей в дальнейшем роль счетчика 
(смотрите строку 640), значения 0; 

610 - установка текущего цвета символов; 

620 - печать названия игры; 

630 - увеличение номера текущего цвета на единицу, но так, чтобы он не 
превышал число 7. Если он станет больше 7, то переменная с примет значение 1; 

640 - в этой строке изменяется значение счетчика, контролирующего 
количество выполняемых циклов. Счетчик применяется в тех случаях, 

когда по каким-либо причинам невозможно или затруднено использование 
оператора РОК...МЕХТ. Как только в счетчике окажется число, большее 200, 
произойдет переход на строку 700, начинающую вывод на экран третьего кадра, 
который мы назовем РЕЗУЛЬТАТЫ; 

650...680 - очень важный блок операторов условного перехода, с помощью 
которого можно из меню попасть на другие кадры заставки или к разным частям 
игровой программы. Для этого необходимо нажать одну из клавиш 1, 2, 3 или 4; 

650 - если нажать клавишу 1, то программа перейдет на строку 2000, с которой 
должна начинаться игровая часть программы; 

660 - нажатие клавиши 2 вызывает переход на строку 1000, с которой 
предполагается начинать подпрограмму 4-го кадра, который назовем 
ПЕРЕНАЗНАЧЕНИЕ КЛАВИШ Такая часть имеется в игре МАКСИТ, 
представленной в Приложении 1; 

670 - при нажатии клавиши 3 начинается подпрограмма выбора уровня игры 
(строка 3000). Это может быть изменение каких-то переменных, либо создание 
нового лабиринта, как, к примеру, в игре СОКОБАН; 

680 - если нажать клавишу 4, выполнится один из самых простых операторов 
Бейсика - ЭТОР, который остановит выполнение программы. В служебном окне 
экрана появится сообщение 

ЭТОР %аетеп{; 

690 - если будет нажата клавиша, отличная от 1...4, или не будет нажата никакая 
клавиша, то программа возвратится к строке 610 и, начиная с нее, повторится; 

700 - начало нового кадра заставки - РЕЗУЛЬТАТЫ; 

710 - звуковой сигнал; 

720, 730 - очистка экрана и установка цвета символов; 

740...760 - печать таблицы из 9 строк, в каждой из которых указан ее номер, 
затем точками отмечено место, куда потом будет заноситься имя игрока и наконец, 
набранные очки; 

770 - еще один счетчик, необходимый для того, чтобы таблица «держалась» на 
экране определенное время. Оператор РАОЪЕ ни здесь, ни в меню не может быть 
использован, так как надпись НТЪЗСОВКЕ (строка 820), расположенная над таблицей, 
должна переливаться разными цветами; 

780 - эта строка работает так же, как и строка 630; 
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790 - увеличение счетчика на единицу; 

800 - если число в счетчике станет больше 200, или будет нажата какая-либо 
клавиша, то произойдет переход к строке 500. Таким образом, строки 640 и 800 
выполняют автоматическое переключение с меню на таблицу результатов и 
наоборот. 

Здесь нужно сказать вот о чем. Когда при выполнении одного из нескольких 
условий должны следовать одинаковые действия компьютера, то обычно строки с 
этими условиями записываются как одна, а сами условия соединяются ключевым 
словом ОК - «или». Таким образом, два условия объединены в одной строке: 

800 ТЕ +>200 ОВ ТМКЕУ$<"" ТНЕМ 60 ТО 500 

Это позволяет не только сократить текст программы, но и несколько увеличить 
ее быстродействие. Надо добавить еще, что в операторе 1Е..ТНЕМ при 
необходимости подобным образом можно проверять не два, а сколько угодно 
условий; 

810, 820 - установка текущего цвета и печать в строке 1 и позиции 11 слов Е 
ЭСОКЕ (максимальный счет); 

830 - безусловный переход на строку 780, где изменяется цвет надписи Е 
ЭСОВЕ; 

1000 - начало подпрограммы переназначения клавиш. Ее, если потребуется, вы 
сможете написать самостоятельно; 

2000 - с этой строки должна начинаться игровая часть программы; 

3000 - начало подпрограммы установки уровня игры. 


Делаем картинку-заставку с помощью АгЕ $ша!о 


Выше мы рассмотрели программы-заставки, написанные на Бейсике, в которых 
использованы различные интересные эффекты. Но, как известно, первым кадром в 
фирменных заставках почти всегда идет яркая картинка, которую средствами 
Бейсика сделать практически невозможно. Для этого больше подходят 
специальные графические редакторы, с одним из которых - пожалуй, наиболее 
мощным - мы сейчас познакомимся. 

Применение редактора Ап 510 позволит вам создавать красочные картинки, 
которые по качеству не уступят фирменным. Предел совершенству может 
положить только отсутствие фантазии и трудолюбия. Подробное описание АЦ 
(ао имеется в книге [1], но не у всех она есть, поэтому мы сочли необходимым 
поместить в Приложении 3 краткую сводку команд редактора. Здесь же мы 
расскажем о том, как использовать эту программу для конкретных целей - создания 
картинки-заставки и как после записи экранного файла на ленту встраивать его в 
конкретную игру. 

После загрузки Ай 5410 в компьютер, в верхней части экрана появится 
главное меню, а ниже - стрелка курсора. Управление стрелкой может 
осуществляться как джойстиком, так и с помощью клавиатуры: клавиши О, А, ОиР 
двигают стрелку соответственно вверх, вниз, влево и вправо. Если нажать сразу две 
клавиши, например, О и О, то стрелка будет двигаться по диагонали. Ввод в 
действие выбранной функции выполняет клавиша М или кнопка Огонь джойстика. 

Рассмотрим последовательность действий при создании экранной картинки. 

Начнем работу с установки стрелки на функцию АТТНВОТЕЗ (выбор палитры). 
Нажав клавишу М (или Огонь), вы увидите в прямоугольной рамке еще одно меню, 
в котором легко узнать встречавшиеся ранее слова ПМК, РАРЕК, ВОКПЕК и другие. 
Если же действие какой-то функции вам не совсем понятно - загляните в 
Приложение 3 или в книгу [1]. 
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Если вы случайно попали не в то меню, достаточно отвести стрелку в область, не 
занятую меню, и нажать М. 

Предположим, что выбрана функция 5ЕТ ПМК (установка цвета тона - ПМК). На 
экране сразу появится цветовая палитра, в которой с помощью стрелки выбирается 
нужный цвет. То же самое можно проделать для РАРЕК и ВОКПЕК. А вообще, не 
бойтесь экспериментировать, проверьте действие всех функций этого меню и 
подберите комбинацию цветов для создания своей первой картинки. 

Следующий шаг - выбор инструмента, с помощью которого вы будете создавать 
свое произведение. Для этого установите стрелку в главном меню на функцию 
РАПМТ (рисование кистью, пером, распылителем) и нажмите М. В появившемся 
новом меню выберите для качала РЕМ (рисование пером), а затем - одно из 18 
перьев (в каждом из 18 появившихся квадратиков показано, какова будет толщина 
линий по горизонтали, вертикали и диагонали). 

Техника рисования очень проста: нажатие клавиши М опускает перо на 
«бумагу», а клавиши О, А, О и Р перемещают его в разных направлениях. 
Выполните рисунок из линий, причем таким образом, чтобы в нем было несколько 
замкнутых областей (рис. 2.4), назначение которых станет понятно вам позднее. 

Если в какой-то момент у вас дрогнула рука и линия получилась не такой 
ровной, как хотелось бы, установите стрелку на функцию ОМОО главного меню и 
нажмите М. Экран примет тот вид, который он имел до выполнения последнего 
действия. Таким образом функция ОМОО позволяет исправить практически 
любую ошибку 

Попробуйте теперь улучшить свой рисунок при помощи распылителя. Для этого 
необходимо вернуться стрелкой к пункту РАПУТ и выбрать в нем функцию ЗРКАУ 
САМ (рисование распылителем) Плотность распыления можно установить 
выбором одного из 8 квадратиков. Попрактикуйтесь немного в малярном ремесле 
(рис. 2.5), после чего можно переходить к работе кисточкой. 


НИИ 


АВЕ | ПЕСО 


Рис. 2.4. Рисование пером в Ай За 91о. 
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к-т г. 19 . 
Ч. к а Е: 


Рисование распылителем. 
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Рис. 2.6. Работа кистью. 

Этот режим устанавливается в пункте ВКОЗН главного меню. Выберите одну из 

16 появившихся кисточек, например, «рожицу», и проведите несколько линий (рис. 
2.6). Думается, что это занятие доставит вам удовольствие. 

Графический редактор Ап 5410 позволяет не только рисовать линии, но и 

закрашивать замкнутые области различными фактурами. Поставьте стрелку в 

а 


иде и ; рые =. 


нение замкнутых областей фактурой. 

и нажмите клавишу М. В появившемся новом меню выберите пункт ЗОШ ЕШГ, 
(полное закрашивание объекта) и перелвиньте валик, заменивший в этом режиме 
стрелку-курсор, на одну из замкнутых областей вашего рисунка. После нажатия 
клавиши М эта область должна закраситься цветом, установленным ранее 
функцией ЗЕТ ПМК пункта АТТМВОТЕ$. Если вам захочется закрасить новую 
область другим цветом, обратитесь к пункту АТТМВОТЕ$З и после появления меню 
выберите 5ЕТ ПМК и далее желаемый цвет. Теперь опять перейдите к пункту ЕП. и 
установите новый режим - ТЕХТОКЕР ЕП, (заполнение объекта фактурой). Какой 
только фактуры нет в этих 32 квадратиках - на любой вкус! Выберите «кирпичи» и 
заполните ими одну область, затем подберите какой-нибудь «текстиль» и заполните 
другую, и так далее, для всех областей (рис. 2.7). 

Если в качестве фактуры взять, к примеру, вертикальные полоски, а валик 
установить за пределами всех замкнутых областей, то после нажатия М вся 
внешняя часть рисунка заполнится этой фактурой, а рисунок тем самым выделится 
и станет еще лучше. 

И, наконец, последний штрих в создании рисунка. Программа Ап Змю 
работает не только с изображениями, но и с текстом. Установите стрелку на пункт 
ТЕХТ главного меню (работа с текстом) и задайте высоту (...НЕСНТ) и ширину 
(...МПОТН) букв. Теперь выберите функцию ТЕРТ ТО К СНТ (печать текста слева 
направо). Стрелка заменится курсором, размер которого зависит от высоты и 
ширины букв. Поместите курсор в то место экрана, откуда должен начинаться 
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текст, нажмите М и набирайте текст (рис. 2.8). Для редактирования можно 
использовать 


НЫЙ абс -5 


Рис. 2. 8. Е текстов в А НеКо, 

курсорные клавиши и клавишу РЕГЕТЕ (Сарз ЗШИ и 0). Ввод надписи 
завершается нажатием клавиши Ещег. 

Для печати текста сверху вниз нужно выбрать в меню РОМ/ЛММ/АКВО5. О других 
способах вывода текста на экран можно узнать в Приложении 3. 

С помощью графического редактора можно строить геометрические фигуры 
(функция 5НАРЕЗ), редактировать мелкие детали изображений в увеличенных 
масштабах (функция МАСМГЕУ) ит, д. Некоторые из этих функций Ай 5410 мы 
рассмотрим в других главах. 

Итак, вы нарисовали свою первую компьютерную картину, и теперь хорошо 
было бы записать се на магнитную ленту. Для этого в редакторе предусмотрен 
пункт главного меню ЕШЕ, с помощью которого можно не только записать 
картинку на магнитный носитель, но загрузить и подправить рисунок от другой 
игровой программы, проверить правильность записи и многое другое. Поскольку в 
данный момент нас интересует запись, то выберите функцию ЗАУЕ ЕПЕ (запись 
экранного файла). На экране появится запрос: Е!епате? (имя файла?). Теперь с 
клавиатуры нужно ввести имя, под которым будет записан экранный файл, 
например, ЗСКЕЕМ$ Нажав клавишу Епет, вы увидите на экране знакомое 
сообщение: Маг фаре, еп ргез$ апу Кеу (включите магнитофон на запись и 
нажмите любую клавишу). Начнется запись на ленту экранного файла длиной 6912 
байт. Когда файл будет записан на экране вновь появится главное меню. 

В заключение покажем, как можно использовать получившийся экранный файл 
на конкретном примере - игровой программе МАКСИТ, представленной в 


Приложении 1. Запишите на ленту маленькую программу-загрузчик: 


10 ГОАО “ЭСАЕЕМ$”СООЕ 16384 
20 ГОАБ “МАХТТ” 
В этой программе строка 10 загружает в экранную область памяти компьютера 


(с адреса 16384) созданный вами файл. А после того, как картинка полностью 
появится на экране, строка 20 обеспечит загрузку бейсик-программы игры 
МАКСИТ. 
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Для того, чтобы написать хорошую игрушку, прежде всего нужно тщательно 
продумать сюжет, и только потом приступать к созданию спрайтов, необходимых 
для реализации ваших идей. 


Из чего состоит игровое пространство 


На смену одним играм приходят другие, количество сюжетов безгранично - но, 
как и все на свете, компьютерные игры поддаются классификации. 

Большое количество компьютерных игр создано по сюжетам приключенческих 
фильмов и книг: Коросор, Като, Етрие, Вайпап, Реа Заг и т. д. В основу других 
положены распространенные «настольные» игры - СНез$, РокКег, ПОтача. 
Компьютер позволяет смоделировать и логические игры типа Тез, Рейт$, оКорап, 
ВоЧег ПазВ и другие. Многие программы предлагают вам стать участником 
космических сражений (ЕЩЕ, Заг Ка14егз, В-Туре, 5аг Рох), воздушных боев (МПС- 
29, зрийтге, Е-16, Е!уш9 эВагКк, Ыхег Ка1а) или выполнить рискованные задания (По 
Тре Еад]ез Мез, забоеиг, Вгасе Гее, Муза ПОгадоп$). Получили распространение 
игры-имитаторы спортивных состязаний - Еп]уп Надег 5оссег, Вазке Мазег. 

В большинстве случаев игровое пространство может быть разбито на три 
существенно отличающихся друг от друга части. К первой отнесем все 
неподвижные элементы изображения, имитирующие небо, землю, воду, 
космическое пространство со звездами, и «мелкие» объекты - здания, корабли, 
деревья, мосты и т. д. В дальнейшем все это для краткости будем называть 
пейзажем. 

Вторую часть составляют подвижные элементы изображения, на которые вы не 
можете оказывать управляющих воздействий. Как правило, к этой группе 
относятся изображения ваших противников, например, силуэт танка в игре Тапх 
или автомобили в \М\!ее Ге Мапз. 

Наконец, к третьей части игрового пространства обычно относится одно 
изображение (или, реже, несколько), действиями которого вы можете управлять с 
помощью клавиатуры или джойстика. Так, в игре Капе это ковбой, 
преодолевающий различные препятствия и ведущий борьбу с многочисленными 
врагами. В игре Тей15 - падающие на дно стакана геометрические фигурки, 
отличающиеся друг от друга цветом и формой. Наконец, в игре Сафа| и многих 
других управляемым элементом является перекрестье прицела. 

Итак, представим себе, что выбрана тема игры, тщательно проработан сюжет 
(мысленно определены все элементы, их цвет, размер и траектория движения), 
четко сформулирована цель и намечены способы ее достижения. Можно 
приступать к программированию. 


Создание графических объектов 


За исключением самых первых текстовых программ жанра Адуеште, ни одна 
игра не обходится без множества полвижных графических объектов - спрайтов, 
поэтому давайте сделаем еще один шаг вперед по пути создания хороших игровых 
программ - научимся создавать такие объекты, а затем заставим их двигаться. 

Каким образом получить изображение на экране? Во-первых, можно 
воспользоваться операторами РГОТ и РВАМ/У. Но при этом, как вы понимаете, 
программа выйдет достаточно громоздкой и «медлительной». Если не верите - 
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введите и выполните программку, рисующую на экране ракету: 
10 РЕОТ 120,80: ОВАМ 3, -3 
20 ОНАМ 0,-11: ОВАМ 4, -4 
30 ОНАМ 0,-5: ОВАМ -4,4 
40 ОВАМ -6,0: ОВАМ -4, -4 
50 ПВАИ 0,5: ОНАМ 4; 4 
60 ОНАМ 0,11: ОВАМ 2,2 

Нетрудно догадаться, что таким способом можно создавать только простейшие 
изображения, а для рисунков с обилием мелких деталей этот рецепт никуда не 
годится. Поэтому программисты обычно заранее заготавливают картинки, 
называемые спрайтами, а затем вводят их в память в виде блока данных (набора 
чисел). Нам остается выяснить, каким образом можно получить такой блок данных 
и как потом превратить его в изображение на экране. 

Идея здесь довольно проста. Любое изображение на экране (спрайт) можно 
разбить на несколько маленьких спрайтиков. А любые символы (буквы, цифры) 
тоже, по сути, маленькие спрайтики, размером в одно знакоместо. И выводить их 
на экран проще простого - с помощью оператора РАПМТ. Значит, если нам удастся 
изменить некоторые символы таким образом, чтобы при выводе в совокупности 
они составили нужную картинку, то задачу можно будет считать решенной. 

По счастью, разработчики 7.Х 5ресгат предусмотрели возможность изменения 
набора символов. Проще всего изменить символы, специально предназначенные 
для этого. Они так и называются: символы, определяемые пользователем - Озег 
РейпеЯ Сгарб1сз (ОРС). Они выводятся на экран в режиме курсора [С] при 
нажатии клавиш от А до (0. Режим курсора [С| включается (и выключается) 
одновременным нажатием клавиш Сарз ЗЫШ и 9. 

Теперь перейдем к главному вопросу: как закодировать изображение? Вы 
знаете, что символы строго вписываются в знакоместа экрана с размерами 8х8 
точек - пикселей. Начертим на листе в клетку поле 8х8 клеток и изобразим на нем 
какую-либо фигуру, например, «гномика» (рис. 3.1) 


ЗЕ 
128 64 15 42т 


3=+16+8=56 
54-+16+4 +54. 
зЕ+ТЕчЕчЫе 
З=+16 +8 +565 
зе=ч+&=40 
54+3=+8+4=198 


Рис. 3.1. Спрайт «Гномик». 
Если заменить пустые клеточки нулями, а закрашенные - единицами, то мы 


получим последовательность чисел в двоичном представлении: 
00000000 
00111000 
01010100 
00111000 
00111000 
00101000 
01101100 
00000000 
Для записи двоичных чисел в Бейсике используется ключевое слово ВП\. 
Например, 
РАТМТ ВТМ 10010110 
или 


3. ПОСТРОЕНИЕ ИГРОВОГО ПРОСТРАНСТВА 36 


ГЕТ а=ВТМ 10010110: РАТМТ а 

Наконец, нам остается занести полученный ряд чисел в память. Как это 
сделать? Наверное, для вас не будет новостью, что память компьютера 
представляет собой последовательность ячеек, предназначенных для хранения 
чисел. При этом каждая ячейка имеет свой адрес, только не дом и не улицу, а номер 
от 0 до 65535. Чтобы занести в память какое-то число, нужно выполнить оператор 
РОКЕ, после которого сначала указывается адрес ячейки, а затем, после запятой, - 
само число. Помните только, что записывать в память можно не любые значения, а 
лишь целочисленные из диапазона от 0 до 255. Эти числа в дальнейшем мы будем 
называть байтами, а каждый отдельный разряд двоичного числа - битом. Таким 
образом, байт состоит из восьми битов. 

По каким же адресам расположить числа, составляющие изображение нашего 
«гномика»? Узнать адреса размещения символов ООС позволяет функция ОЪК, 
аргументом которой должен быть символ нужной клавиши. Например, РКИМТ 95КВ 
"5" напечатает на экране адрес символа, определяемого пользователем, который 
соответствует клавише 5'. 

Теперь расположим, начиная с этого адреса, коды изображения «гномика» и 
затем выведем его на экран: 


10 РОКЕ ЦЗН "5", ВТМ 00000000 
20 РОКЕ 058 "5"+1, ВТМ 00111000 
30 РОКЕ 058 "5"+2, ВТА 01010100 
40 РОКЕ 058 "5"+3, ВТА 00111000 
50 РОКЕ 058 "5"+4, ВТК 00111000 
60 РОКЕ 058 ”5"+5, ВТА 00101000 
70 РОКЕ 058 "5”+6, ВТА 01101100 
80 РОКЕ 058 "5"+7, ВТМ 00000000 
90 РАТАТ “5” 


Конечно же, вовсе не обязательно записывать в программе длинные блоки 
данных из двоичных чисел. Лучше заранее привести их в к десятичному виду. 
Сделать это можно двумя способами: воспользовавшись ключевым словом ВП\, 
либо подсчитать значения кодов вручную, просуммировав разряды числа. 
Например: 

00111000 => 05128 + 0564 + 1532 + 1516 + 158 + 054 + 052 + 051 = 56 
Теперь приведем пример программы, записывающей изображение нашего 
«гномика» в пользовательский символ, который соответствует клавише А. 
10 ЕОВ 1=0 ТО 7 
20 ВЕАБ №: РОКЕ 058 “А”+Т, № 
30 МЕХТ Т 
40 ОАТА 0, 56, 84,56, 56,40, 108,0 

10 - начало цикла, состоящего из восьми повторяющихся процедур (по числу 
запоминаемых байтов}; 

20 - функция Ч$5К "А" возвращает адрес символа ОРС, соответствующего букве 
А, а оператор РОКЕ записывает в ячейку памяти с этим адресом значения 
переменной М, которые последовательно считываются оператором КЕАПР из списка 
данных, следующих за оператором ВАТА; 

30 - конец цикла по переменной Г; 

40 - коды изображения «гномика», приведенные к десятичному виду. 

После выполнения этой мини-программы в память компьютера будут введены 
коды «гномика». И если потребуется вывести на экран его изображение, например, 


' В дальнейшем в текстах программ клавиши, которые нужно нажимать в 
режиме курсора [С], будут выделены подчеркнутым жирным шрифтом, например: 
А, В, Сит. д. 
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в знакоместо с координатами (10, 15), достаточно набрать в программе 
дополнительную строку 
50 РАТМТ АТ 10, 15; "А" 
причем клавишу А необходимо нажимать в режиме курсора [С]. 


Рис. 3.2. Спрайт «Реактивный самолет». 
Предположим теперь, что нам требуется закодировать а затем вывести на 
экран более сложный рисунок, например, изображение реактивного самолета. 
Рисунок состоит из пяти знакомест. Обозначим их буквами А, В, С, РиЕ (рис. 
3.2), а затем закодируем каждое способом, описанным в предыдущем примере. 
Программа, осуществляющая запись изображения самолета в память, должна 
выглядеть примерно так: 
Программа 7. Спрайт "реактивный самолет". 


10 ВОВОЕН 1: РАРЕВ 1: ТАК 6 

20 (15 

30 РОН №=0 ТО 39 

40 НЕАВ 5 

50 РОКЕ ИН “А"+М, 5 

60 МЕХТ № 

70 60 ТО 300 

100 ПАТА 24, 24, 24,24, 24, 24,60,60: НЕМ А 

110 РАТА 60, 36, 36, 60, 60, 60, 90,90: ВЕМ В 

120 ВАТА 12, 13,15, 127, 255, 255,15,0: НЕМ С 
130 ВАТА 219, 219, 219, 219, 219, 219,255,60: НЕМ В 
140 РАТА 48, 176, 240, 254, 255, 255,240,0: ВЕМ Е 


300 РВТАТ АТ 10, 10; "А" 
310 РАТМТ АТ 11, 10; "В" 
320 РАТМТ АТ 12, 9; "СОЕ" 

10 - установка атрибутов экрана; 

20 - очистка экрана; 

30 - начало цикла, в котором должно быть прочитано 5х8 = 40 кодов (с 0 по 39 
включительно}; 

40 - в процессе работы цикла оператор КЕАЛР считывает в переменную 5 
поочередно все данные из списка РАТА; 

50 - в этой строке происходит следующее. Число, присвоенное переменной 5, 
теперь переписывается в ячейку памяти компьютера, имеющую адрес 05В "А" -+ М. 
При М = 0 этот адрес составляет 65368. Так как в цикле по М величина О5К "А" + М 
все время увеличивается на единицу, то требуемые коды будут последовательно 
записаны в ячейки памяти с адресами 65368, 65369, 65370, ... 

60 - конец цикла Теперь можно либо вывести изображение самолета на экран 
(как сделано у нас), либо обратиться к другим частям программы; 

70 - переход на строку 300, с которой начинается вывод на экран изображения 
самолета; 

100...140 - здесь хранятся коды, соответствующие пяти знакоместам 
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изображения самолета. Заметим, что мы могли бы записать все данные одним 
оператором РАТА, но при этом пострадала бы «читабельность» программы; 

300 - вывод на экран в знакоместо с координатами (10, 10) фрагмента А 
реактивного самолета. (Еще раз напомним, что при наборе строки клавишу А 
следует нажимать в режиме курсора [С]; 

310 - вывод на экран фрагмента В; 

320 - вывод на экран фрагментов С, РиЕЁ. 

Итак в нашем распоряжении появилась программа, которую можно 
использовать как фрагмент сложной компьютерной игры. Чтобы убедиться в этом, 
сделаем несколько заготовок с расчетом использовать их в будущем. Вначале 
создадим спрайт вертолета с вращающимся винтом (рис. 3.3). Злесь нам 
понадобятся две картинки, изображающие вертолет 


Рис. 3.4. Спрайт «Самолет». 
с разным положением винта. Если быстро подменять одну другой на экране, то 
появится иллюзия движения - как в мультфильме. 
Закодируем два этих изображения, заменив в предыдущей программе строки с 
оператором РАТА на такие: 


00 БАТА 0,0, 135, 0, 120, 137, 15,39: НЕМ А 
110 ВАТА 0,0, 255,2, 127, 201, 201,255: ВЕМ В 
120 ВАТА 0,0, 255,0, 192, 112, 24,12: ВЕМ С 
130 ВАТА 3,1,0,0,0,0,0,0: ВЕМ р 
140 БАТА 255, 255, 127, 63,4,255,0,0: НЕМ Е 
150 ВАТА 254, 254, 252, 248, 34, 252,0,0: ВЕМ Е 
160 ПАТА 0,0, 32,0, 120, 127, 15,135: ВЕМ 6 
170 ВАТА 0,0, 7,2, 127, 201, 201,255: ВЕМ Н 
180 ВАТА 0,0, 0, 0, 192, 112, 24,12: ВЕМ ! 


Кроме того, максимальное значение переменной М в строке 30 программы 
нужно исправить на 71. Теперь можно выводить спрайт на экран, придерживаясь 
следующей последовательности символов: АВС - верхняя часть картинки, ОЕЁЕ - 
нижняя часть, СЕТ - верхняя часть, но с винтом, повернутым в другую сторону. 
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Нижняя часть вертолета не изменяется, поэтому во второй картинке используются 
те же символы РЕЕ. Попытайтесь написать программку, рисующую вертолет с 
вращающимся винтом, самостоятельно. Если же у вас возникнут проблемы, 
загляните в главу 5 и посмотрите, как это сделано в программе ВЕРТОЛЕТ 
Теперь нарисуем спрайт с изображением самолета (рис. 3.4), который в пятой 
главе мы заставим летать по всему экрану, участвуя в воздушном бою. Операторы 
РАТА здесь будут такими: 
100 БАТА 0,0,0,0, 255,0,0,0: ВЕМ А 
110 РАТА 0,0,0,0, 255, 255,6,4: НЕМ В 
120 ВАТА 60, 126, 255, 255, 255, 255, 126,60: НЕМ С 
130 ВАТА 0,0,0,0, 255, 255, 96,32: ВЕМ В 
140 ВАТА 0,0,0,0,255,0,0,0: ВЕМЕ 
150 ВАТА 0,0,0, 24, 24,24,24,24: ВЕМЕ 
Управляющая переменная М принимает максимальное значение 55. Для вывода 
спрайта на экран оператором РЕПМУТ сначала рисуются крылья и фюзеляж, 
изображаемые рядом символов ЧОС, соответствующих буквам А, В, С, и Е, а 
затем точно над С ставится символ [, хранящий изображение хвоста самолета. 
Ниже приведен листинг еще одной неболыпой программы, создающей на 
экране подвижные спрайты. 


Программа 8. ПОДВИЖНЫЕ СПРАЙТЫ. 
10 ВОНРЕВ 1: РАРЕН 1: ТАК 6: (1$ 
20 ЕОН 1=0 ТО 47 
30 ВЕАБ №: РОКЕ 058 “А”+Т, № 
40 МЕХТ Т 
55 ВАТА 0,2, 3, 7, 15, 19, 83, 126 
56 ВАТА 0, 64, 64, 224, 240, 200 
57 ВАТА 202, 126, 127, 115, 120, 31 
58 ВАТА 15,4,4,28, 254,206, 30 
59 ВАТА 248, 240, 32,56, 0, 127 
60 БАТА 127, 120,27, 15,4,28,0 
61 ОАТА 254, 254, 30, 216, 240, 32 


62 ОАТА 32, 56 

100 РЕОТ ТИК 4;60, 71: ОНАМ ТАК 4; 135,0 

105 (ЕТ 0=3 

110 РАЦЗЕ 50: ТЕ ТМКЕУ$=" ” ТНЕМ 00 ТО 200 
120 РАТМТ АТ 10, 14; "АВ"; АТ 10,18; ТАК С; “ПП” 
130 РАТМТ АТ 11, 14; "СО”;АТ 11,18; ТАК С; “АВ” 
140 РВТМТ АТ 12, 14; "ПП"; АТ 12,18; ТАК С; "ЕЕ 
150 РАЦЗЕ 50: ТЕ ТМКЕУ$= ТНЕМ 60 ТО 200 
160 РАТМТ АТ 10, 14; "ПП”;АТ 10,18; ТАК С; "АВ 
170 РАТМТ АТ 11, 14; "АВ"; АТ 11,18; ТАК С; "С0` 
180 РАТМТ АТ 12, 14; "ЕЕ"; АТ 12,18; ТАК С; "ПП 
190 60 ТО 110 


200 (15 
Поскольку все операторы этой программы рассматривались нами ранее, 
попытайтесь самостоятельно разобраться в том, как она работает. Заметим лишь, 
что нажатие любой клавиши приводит к ускорению движения фигурок. Это 
связано с прекращением действия оператора РАОЪЕ. А если нажать клавишу расе, 
то экран очистится и программа завершит свою работу. 


Спрайт-генератор 

Кодирование изображения спрайта вручную - хотя и полезная, но довольно 
утомительная работа. У тех, кому приходится создавать много спрайтов, возникает 
естественный вопрос: нельзя ли сам компьютер заставить заниматься 
кодированием, причем в удобной для пользователя форме? Эта мысль была 
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реализована в программе генератора спрайтов. Поскольку эта программа 
представляет самостоятельный интерес как пример сервисной программы, 
облегчающей программисту жизнь, то 


Рис. 3.5. Рабочее поле спрайт-генератора. 

рассмотрим ее, как и все другие, - подробно. Однако предупредим вас заранее, 
что в этой программе встречается ряд операторов и приемов, о которых еще не 
говорилось и речь о которых пойдет в следующих главах. Поэтому начать 
досконально разбираться с некоторыми ее фрагментами лучше после изучения 
пятой главы книги. 

После ввода программы и ее пуска на экране появится рабочее поле (рис. 3.5}, 
каждая клеточка которого соответствует пикселю изображения спрайта. Поле 
разделено на шесть квадратов размером 8х8 клеток. Каждый квадрат изображает 
одно знакоместо спрайта. По клеткам поля может перемешаться курсор, который 
выполняет роль пера. Об управлении программой можно узнать, нажав клавишу Н 
(НЕГР - подсказка). Курсор перемещается с помощью клавиш О - вверх, А - вниз, О 
- влево иР - вправо. Точки ставятся (или удаляются) нажатием клавиши М. После 
нажатия клавиши М справа от поля по вертикали расположатся 8 чисел, 
соответствующих кодам знакоместа, номер которого виден тут же под словом 
5УМВОГ. Эти числа затем можно записать в оператор РАТА и использовать в 
нужном месте игровой программы подобно тому, как мы делали это для спрайтов 
«гномика», вертолета, реактивного самолета и т. д. Когда очередное знакоместо 
будет закодировано, нажмите клавишу Ещет - и курсор переместится в следующий 
квадрат-знакоместо. При необходимости, квадрат, в котором находится курсор 
(текущее знакоместо), можно очистить от изображения, нажав клавишу С. 

Прежде, чем привести текст программы, необходимо сказать вот о чем. В ней не 
предусмотрена возможность остановки и выхода в Бейсик. Но если вы уже 
набрали и запустили программу, а записать ее на магнитофон или диск забыли, то 
не хватайтесь за голову и не тянитесь к кнопке сброса. Разработчики ИХ 5рестат 
позаботились о возможности остановки любой программы на Бейсике, если только 
она специально не защищена. Олновременное нажатие клавиш Сар$ Э5ШЁ и 5расе 
(ВтеаК) позволяет прервать работу программы в любой момент, не дожидаясь ее 
завершения. При этом на экране появится сообщение ВВЕАК шо ргодтат. 

Теперь рассмотрим саму программу. 

Программа 9. СПРАЙТ-ГЕНЕРАТОР. 
20 ОТМ 9$(6,8,8): ОТМ с(8): 60 $08 6000 
30 (ЕТ а$="5УМВОЕПЙ”" 
40 60 508 8000 
50 ВОНБЕВ 0: РАРЕВ 0: ТМК 6: (15 
60 РАТМТ АТ 0,6; "5 РАТТЕ 5” 
70 ТАК 3 


80 РОТ 40, 165: ОВАМ 120,0 
90 ТМК 4 
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00 
00 
00 
00 
№ ЕЕТ 9$(3, у, х)="В”: 
0 
№ (ЕТ 9$($, у, х)=”"А”: 


РАТМТ АТ 

РАТМТ АТ 
ТЕ $1=7 ТНЕМ ТЕТ $1=1 

600 


3000 
50 


ГЕТ у=у1 


ТАК 8; РАРЕВ 0;”” 


100 РОВ п=1 Т0 8 

110 РАТМТ АТ п+3, 0:9$(1, п); 

120 РАТМТ ТАК 7; :0$(2 ‚ п); 

130 РАТМТ ТМК 4:9$(3,п) 

140 МЕХТ п 

150 ТМК 7 

160 РОВ п=1 Т0 8 

170 РАТАТ АТ п+11,0:9$(4, п); 

180 РАТМТ ТМК 4:9$(5,п); 

190 РАТМТ ТМК 7:9$(6,п) 

200 МЕХТ п 

210 ТК 7 

220 РИОТ 0,15: ОВАИ 63,0 

230 РИОТ 128,15: ОВАМ 64,0: БВАШ 0, 128 

240 РОТ 197,15: ОВАМ 0, 128 

250 ОВАМ 54,0: ОВАМ 0, -128 

260 ОВАМ -54,0 

270 РИОТ 64,15: БВАМ 63,0 

280 ТАК 2 

290 РИОТ 213,37: ОВАМ 29,0: ОВАМ 0,21 

300 ОВАМ -29,0: БВАМ 0, -21 

310 Кб 

320 РАТМТ АТ 18, 25; "Н-НЕЕР" 

330 ЕОВ 1=0 ТО 1 

340 ЕОВ 1]=0 ТО 2 

350 РАТМТ АТ 1*18+3, ]*8+3; 1*3+] +1 

360 МЕХТ ] 

370 МЕХТ 1 

400 ВЕМ ------------------- 

410 1ЕТ х=1: 1ЕТ у=1: (ЕТ $=1 

420 1ЕТ рх=-1: ЕТ ру=3 

430 1ЕТ с=4: ЕТ $1 = 1 

450 ВЕМ ------------------- 

460 60 508 2000 

470 1ЕТ х1=х: ЕТ У1=у 

480 ТЕТ К$=ТАМКЕУ$ 

490 ТЕ К$="Р” ОВ К$=”р” ТНЕМ ГЕТ х=х+1: 60 ТО 6 
500 ТЕ к$="0” ОВ К$="”о” ТНЕМ ЕТ х=х-1: 60 Т0 6 
510 ТЕ К$="0” ОН К$=”а” ТНЕМ ЕТ у=у-1: 60 10 6 
520 ТЕ К$="А" ОВ К$="а” ТНЕМ 1ЕТ у=у+1: 60 Т0 6 
530 ТЕ (К$="М" ОВ К$="т”) АМО 9$($,у,х)="А” ТНЕ 
ру+у, рх+1; ТМК с;9$($,у): @0 508 7310: 60 ТО 60 
540 ТЕ (К$="М" ОВ К$="п”) АМО 9$($, у, х)="В” ТНЕ 
ру+у, рх+1; ТМК с;9$($,у):60 50В 7310: 60 ТО 600 
550 ТЕ СОБЕ К$=13 ТНЕМ 60 508 7210: (ЕТ $1=$1+1: 
560 ТЕ к$="№" ОВ К$=”п” ТНЕМ 60 508 2000: 60 ТО 
570 ТЕ К$="С” ОВ К$="”с” ТНЕМ 60 58 7200: 60 ТО 
580 ТЕ к$="Н" ОВ к$=”п” ТНЕМ 60 508 5000: 60 ТО 
590 60 ТО 620 

600 ВЕМ ----------- 

610 60 508 7110 

620 ТЕ х>8 ОН х<1 ОН у>8 ОВ у<1 ТНЕМ ЕЕТ х=х1: 
630 РАТМТ АТ у+ру, х+рх; ОМЕН 1; ТАК 8; РАРЕВ 1;” " 
640 ТЕ к$<”"” ТНЕМ РЕТМТ АТ у1+ру, х1+рх; О\МЕВ 1: 
650 (ЕТ $=$1 

660 60 5ИВ 1010: 60 ТО 470 


ТОО ВЕК еее 
1010 ТЕ 3=1 ТНЕМ ЕЕТ с=4: 
1020 ТЕ 3=2 ТНЕМ ЕЕТ с=7: 
1030 ТЕ 3=3 ТНЕМ ЕЕТ с=4: 


ГЕТ рх=-1: 1ЕТ ру=3: 
ГЕТ рх=7: [ЕТ ру=3: В 
ГЕТ рх=15: ТЕТ ру=3: 


ВЕТОВМ 
ЕТУВМ 
ВЕТИВМ 


41 
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1040 
1050 
1060 
1070 
2000 
2010 
2020 
2030 
2040 
2050 


М 
0 
ОВ 


РОВ 
ТЕ 
ЕХ 


РВТ 


ЕТ 


60 

60 

60 

РВТ 
ВЕТ 
ВЕМ 
ЕТ 
ВОВ 
ТАК 
РЕ 
ОБА 


ВЕЕ 
ВЕТ 
ВЕМ 
РОВ 
ГЕТ 


ЕТОВМ 
Е 


$=4 ТНЕМ ЁЕТ с=7: (ЕТ рх=-1: ЕЕТ ру=11: ВЕТОВМ 
$=5 ТНЕМ 1ЕТ с=4: ЕТ рх=7: ЕЕТ ру=11: ВЕТОВМ 
$=6 ТНЕМ 1ЕТ рх=15: ЕЕТ ру=11: (ЕТ 6=7 


зы 
ЗИВ 7000 
П=1 108 


ЕЕТ 0=0 
ГЕТ ад=(0$В СНА$ (66+$))+(п-1) 


0=1 108 
9$($, п, м)="В” ТНЕМ ЕЕТ 0=0+с (т) 
Тм 


Т№Т АТ п+4, 26; а$ (п); "ППАП” 


п+4, 28:0 


---- СЕЕАЯ ---- 

6=1 

Т #0; АГ 1,2; ТАК 2; ВВАТЕНТ 6; "СЕЕАА ЗУМВОЕ ”; $; "? (У/М)”" 
Т\МКЕУ$="№” ОА ТМКЕУ$=“п” ТНЕМ ВЕЕР .01,20: 60 $08 3200: 60 ТО 600 
Т\МКЕУ$=”У” ОН ТМКЕУ$="у” ТНЕМ ВЕЕР .01,0: 60 50В 3200: 60 ТО 3100 
6=МОТ Б 
ТО 3020 


Т 9$($,п)="АААААААА” 


МТ АТ м+ру, 1+рх; Т№К с; 9$($, т) 


ИВ 1000 

ИВ 2000 

ТО 600 

МТ #0: АТ 1, 2; "ПППАПППЛАППЛАППЛАИЛОЛ”: АЕМ 21 расе 
ИВМ 

---- НЕЕР ---- 

(=0 

РЕВ 1: РАРЕВ 1: ТМК б 
5: (15 

Т 0,0: ОВАМ 0, 175 
255,0: БВАШ 0, -175 
-255,0 


В 14; "С - СЕЕАВ 5УМВОГ" 
2; В 14; "№ - С00Е 5УМВОГ" 
2:"0 - УР”; ТАВ 14; "ЕМТЕВ - ЗУМВОЕ+1” 
2:"А - ООММ”; ТАВ 14; "М - ЗЕТ/ВЕЗЕТ” 
4; ТМК 6; "Ргезз апу Кеу То соп1пие” 
2; ТМК С; "НЕЕР” 


Т (=С+1: ТЕ С=8 ТНЕМ ЕЕТ С=0 


ТАКЕУ$="” ТНЕМ 60 ТО 5130 
Р .002, 15 
ВМ 

---- ОАТА 1 ---- 

П=1 ТО 8 

с(п)=2^(8-п) 
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6030 МЕХТ п 
6040 ВЕТИВМ 


ВЕНЫ 


25 
[Ш 
т г гп! 
< 
25 


= 
щь 
№>) у 
© => 
сэ ©> 
Г Г 
ХЕ: 
о о 
КЕ 
> <> 
ИР) 
© <> 
Со © 
<> 


0 


---- ВЕЕР 4 ---- 
7310 ВЕЕР .003, 25 
0 НЕТОВМ 
0 НЕМ ---- СВАРНТСЗ ---- 
8010 РОН п=0 ТО 15 
0 
0 


ВЕАО $ 
РОКЕ Ц5Н “А”+п, $ 
8040 МЕХТ п 

8050 РОВ п=0 ТО 48 
8060 РОКЕ 058 “С”+п, 0 

8070 МЕХТ п 

8080 РОВ 1=1 ТО 6 
8090 РОВ п=1 ТО 8 
8100 ГЕТ 9$(1, п)="АААААААА" 

8110 МЕХТ п 

8120 МЕХТ 1 

8130 ВЕТИВМ 

9000 ВАТА 255, 128, 128, 128, 128, 128, 128, 128 

9010 БАТА 0, 127, 127, 127, 127, 127, 127,127 

20 - массив 9$(6,8,8) описывает 6 знакомест спрайта площалью 8х8 точек, а с(8) 
содержит значения отдельных битов для кодировки изображения; 

40 - обращение к подпрограмме, формирующей в определяемых пользователем 
символах, соответствующих клавишам А и В. графические элементы, 
изображающие выключенные (А) и включенные (В) пиксели: 

50 - установка атрибутов экрана; 

60...80 - вывод на экран названия программы и его подчеркивание; 

90...140 - печать трех увеличенных знакомест спрайта, расположенных в 
верхней части поля; 

150...200 - печать трех знакомест нижней части спрайта; 

210...270 - лорисовывание нижней и боковой частей рабочего поля, а также 
рамки справа от него; 

280...300 - вычерчивание рамки красного цвета, в которой после кодировки 
будет размещаться изображение полученного спрайта целиком и в реальном 
масштабе; 

320 - печать надписи, подсказывающей, что для получения страницы помощи 
нужно нажать клавишу Н; 

330...370 - вывод на экран номеров фрагмента спрайта; 

410...430 - установка начальных значений переменных: х, у - текущие 
координаты курсора внутри любого фрагмента (знакоместа спрайта); $ - номер 
фрагмента; рх, ру - приращения координат х и у. изменяющиеся в зависимости от 
номера выбранного фрагмента; с -цвет фрагмента; 
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460 - обращение к подпрограмме, которая выводит в рамке справа от рабочего 
поля коды и, кроме того, рисует спрайт в реальном масштабе; 

470 - запоминание «старых» коорлинат; 

480...520 - стандартная схема управления курсором с помощью клавиш. С такой 
схемой мы еще встретимся и подробно ее обсудим в пятой главе; 

530, 540 - эти строки управляют включением и выключением пикселя, на 
который указывает курсор. Если при нажатии клавиши М пиксель выключен, то он 
включится, и наоборот. Оператор АМР в этих строках означает, что операторы, 
следующие за ТНЕМ, будут выполняться только в том случае, если истинно И то, И 
другое условие (ап4 по-английски значит «и»)}; 

550 - при нажатии клавиши Ещег происходит перемещение курсора в 
следующее знакоместо спрайта; 

560 - кодировка текущего знакоместа (того, где стоит курсор); 

570 - очистка текущего знакоместа; 

580 - вызов подсказки; 

620 - проверка на предмет выхода курсора за пределы знакоместа; 

630 - вывод на экран курсора синего цвета; 

640 - удаление курсора на старом месте, но только в том случае, если была 
нажата какая-либо клавиша; 

1000...1060 - в зависимости от номера текущего знакоместа определяется цвет и 
величины приращений координат курсора; 

2000 - начало подпрограммы кодировки текущего знакоместа спрайта, печати 
полученных кодов и вывода изображения спрайта в реальном масштабе; 

2020 - начало цикла кодирования 8 байт текущего знакоместа; 

2030 - в переменной о будет подсчитываться значение каждого байта; 

2040 - расчет адреса в области ООС, куда будет записываться полученный байт. 
Попробуем разобраться со сложным выражением после знака равенства. В 
переменной со хранится так называемый А$СП-код символа, соответствующего 
номеру знакоместа ($). 

Для начала выясним, что же такое АЗСП-код. Возможно, вы уже задавались 
вопросом, каким образом компьютер обрабатывает символьные значения, ведь 
микропроцессор может работать только с числами и не знает, что такое буквы. 
Поэтому всем символам (и даже ключевым словам Бейсика) соответствуют 
специальные числа - АЗСП-коды. Например, буква В кодируется числом 66, которое 
и используется в нашей программе. Так как переменная $ принимает значения от 1 
до 6, то переменная со4 = 66 + $ будет равна 67...72, что соответствует кодам букв С, 
р, Е, Е, Си Н. Функция СНЕВ$ превращает код обратно в символ. Дальше все 
просто: функция О5В возвращает адрес соответствующего символа ЧШОС, к 
которому прибавляется номер кодируемого байта и полученный адрес 
записывается в переменную аа. 

Теперь давайте вернемся немного назад и еще раз посмотрим на строку 550, 
Код символа перевода строки и клавиши Ещет равен 13. Вы можете проверить это, 
введя строку 

РАЦЗЕ 0: РАТМТ СОБЕ ТМКЕУ$ 

и нажав клавишу Етег. Функция СОПЕ - обратная по отношению к СНЕ$ и 
возвращает код символа (в данном случае - символа нажатой клавиши). Таким 
образом, условие СОПЕ К$ = 13 в строке 550 выполняется при нажатии клавиши 
Етцег; 

2050 - начало цикла подсчета значения байта, которое определяется состоянием 
8 битов; 
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2060 - если бит установлен (графический символ В изображает включенный 
бит), то переменная о увеличивается на значение соответствующего бита; 

2070 - конец цикла кодирования одного байта; 

2080 - полученный байт заносится в область ЧШРС по ранее рассчитанному 
адресу аа; 

2100 - печать слова ЗУМВОГ по вертикали и стирание ранее напечатанных 
кодов; 

2110 - печать новых значений кодов; 

2120 - конец цикла кодирования байтов; 

2130...2150 - вывод изображения спрайта в реальном масштабе; 

2170 - печать номера кодируемого знакоместа; 

2180 - выход из подпрограммы; 

3000...3140 - очистка того знакоместа спрайта, в котором находится курсор. Не 
будем описывать эти строки подробно. Объясним лишь смысл функции МОТ в 
строке 3050. Эта функция возвращает одно из двух возможных значений: 1, если 
аргумент равен нулю, и 0, если аргумент ненулевой Таким образом, короткая 
запись ГЕТ Ъ = МОТ Ь заменяет целых две строки. 1Е Ъ=0 ТНЕМ ТЕТ 6 = 1 и ТН Ъ<>0 
ТНЕМ ТЕТЪ =0, 

Далее идут подпрограммы, смысл строк которых вам уже должен быть понятен 
без лишних подсказок: 

5000...5170 - печать странички помощи НЕГР; 

6000...6040 - заполнение массива с(8), определяющего значения отдельных 
битов, которые равны степеням числа 2: 2°=1, 2'=2, ... 2’= 128. Этот массив 
включен в программу для ускорения кодирования изображения; 

7000...7320 - четыре подпрограммы звукового оформления; 

8000...9010 - подпрограмма кодирования используемых в программе образов 
включенного и выключенного пикселей увеличенного в 8 раз изображения 
спрайта, а также очистка шести символов ООС для записи в них готового спрайта. 


Русификация программ 

Взгляните еще раз на последнюю программу - разве вам не хочется, чтобы 
страничка помощи (НЕГР) была написана на русском языке? И хотя ваш любимый 
орессу, скорее всего, не знает русских букв, научить его не так уж сложно. 

Прежде всего обратите внимание на заглавные буквы английского алфавита. 
Многие из них совпадают по начертанию с русскими: А, В, Е, К, М, Н, О, Р, С, Т, Х. 
Русскую букву 3 можно заменить цифрой «три» 

Остальные буквы можно создать точно так же, как мы до этого рисовали 
«гномика» то есть поместив русский шрифт в область определяемых 
пользователем символов (ООС). Таких символов потребуется 20, а именно: Б, Г, Д, 
Ж, И, Л, П, У, Ф, Ц, Ч, Ш, Щ, Ъ, Ы, Ь, Э, Ю, Я, И Программа, которая формирует эти 
недостающие буквы, выглядит так: 

Программа 10. РУССКИЙ АЛФАВИТ. 
9905 ВОВОЕВ 0: РАРЕВ 0: ТМК 5: (15 
9910 РОВ М=1 ТО 20 
9920 ВЕАО А$ 
9930 РОВ М=0 ТО 7 
9940 ВЕАО 5 
9950 РОКЕ 05 А$+М, 5 
9960 МЕХТ М 
9970 МЕХТ № 
9975 ОАТА "В",0, 124, 64, 124, 66, 66, 124,0 
9976 ВАТА "(", 0, 126, 64, 64, 64, 64, 64,0 
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9977 ВАТА "0", 0, 28, 36, 36, 36, 36, 126, 66 
9978 ВАТА "\/",0, 73, 73,62, 73, 73, 73,0 
9979 ВАТА “Т",0, 66, 70, 74, 82, 98, 66,0 
9980 ВАТА "1", 0, 30, 34, 34, 34, 34, 98,0 
9981 ВАТА “Р",0, 126, 66, 66, 66, 66, 66,0 
9982 ВАТА "0", 0, 66, 66, 36, 24, 16, 96,0 
9983 ВАТА "С",0, 68, 68, 68, 68, 68, 126,2 
9984 ВАТА “Н",0, 66, 66, 66, 62,2,2,0 
9985 ВАТА "М", 0,65, 73, 73, 73, 73, 127,0 
9986 ВАТА "М", 0,65, 73, 73, 73, 73, 127,1 
9987 ВАТА "Е",0, 60,66, 30,2, 66, 60,0 
9988 ВАТА "И", 0, 76, 82, 114, 82, 82, 76,0 
9989 ВАТА "А", 0,62, 66, 66, 62, 34, 66,0 
9990 ВАТА "5", 24, 66, 70, 74, 82,98, 66,0 
9991 ВАТА “В”, 0, 64, 64, 124, 66, 66, 124,0 
9992 ВАТА “Т",0, 192, 64, 124, 66, 66, 124, 0 
9993 ВАТА "Е", 0,62, 73, 73, И 62,8,0 
9994 ВАТА "0",0, 66, 66, 114, 74, 74, 114,0 


После выполнения программы вместо латинских букв, если вводить их в 

режиме курсора [С], мы увидим на экране следующие русские буквы: 
ВО Ооо ть ОБС Ры ОБЕ О Нь. МЬ № О а Е; Ш ыы 
Б, Г, Д, Ж, И, Л, ГП, У, Ф, Ц, Ч, Ш, Щ, Ъ, Ы, Ь, 5, Ю, Я, И 

Если к предложенной программе добавить оператор 9995 ВЕТОВМУ, то ее можно 
будет использовать как подпрограмму. А теперь несколько слов о самой программе. 

9910 - внешний цикл, в котором переменная М изменяется в пределах от 1 до 20 - 
по количеству вводимых букв. 

9920 - ввод строковой переменной из оператора РАТА. Во всех таких 
операторах на первом месте стоят латинские буквы, которые и будут в 
графическом режиме определять соответствующие русские буквы; 

9930 - внутренний цикл, в котором осуществляется ввод кодов выбранной в 
предыдущем цикле буквы; 

9940 - присваивание переменной 5 числа из списка РАТА; 

9950 - ввод кода в память компьютера по адресу О5В А$ +М; 

9960, 9970 - операторы завершения циклов; 

9975...9994 - блок данных, содержащий латинские буквы для обозначения 
символов ООС, и соответствующие коды для русских букв. Число операторов 
РАТА равно количеству новых символов. 

Приведенную программу не обязательно загружать и выполнять всякий раз, 
когда вам требуется русский шрифт. Достаточно сделать это один раз и записать 
сформированную область ЧРС-символов на магнитную ленту оператором 

ЗАМУЕ “"ВИЗ"СОБЕ 058 “А”, 168 

Если теперь вставить в любую программу оператор ГОАР "КО5"СОПЕ - то 
после загрузки этого короткого блока можно смело писать по-русски в 
соответствии с приведенной выше таблицей. 

Но при такой русификации область Ч)С окажется занятой полностью и места 
для размещения спрайтов в ней уже не останется. Поэтому лучше воспользоваться 
графическим редактором Ап аа, с помощью которого можно изменять символы 
основного набора, оставляя ОШС для прочих нужд. 

Правда, работа с Ап 5910, как вы уже заметили, требует определенных 
навыков. Если этих навыков у вас еще недостаточно, можете воспользоваться 
приведенной ниже программой, которая решает задачу по переводу всех символов 
стандартного (латинского) набора 7Х 5рестат в совершенно новый - русский 
набор. При этом появляются как строчные, так и прописные буквы, а также 
сохраняются знаки препинания и дополнительные символы - всего 96. Эта 
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программа не затрагивает область ООС, которую можно использовать для создания 
спрайтов уже хорошо знакомыми вам способами одновременно с русским 


шрифтом. 


После загрузки программы перед вами появится краткая инструкция по ее 
использованию. Так, для перехода к новому набору символов (символы русского 
алфавита) следует включить в программу оператор РОКЕ 23607,250 - а для возврата 
к стандартному (латинскому) набору РОКЕ 23607,60 В инструкции дана также 
таблица соответствия русских и латинских букв и знаков. 

Вот эта программа: 


РОКЕ 2 


ГЕТ 3= 
РОН п= 


МЕХТ п 


110 РОКЕ 


РОКЕ 


ВЕАВ а: 
РОКЕ п, 


23607, 60" ° 


Е 23607, 250 


Е 23607, 60 
="АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЬЗЮЯ" 
Т ГК 5; а$ 
Е 23607, 250 


3607, 60 
0 
64256 ТО 65023 


ГЕТ $=$+а 
а 


23607, 250 


‚ М4; 


23607, 60 


а$=' ‘абвгдежзиклмнопрстуфхичи 


ТАК 5; а$ 


ТМК 1: 7$ 
ТМК 4: а$ 


ТМК 1: 7$ 
ТМК 4: а$ 


23607, 60 
`ВУЗ”СООЕ 64256, 768 


‚А 
4 
‚0, 


36,36, 255 36.36 25 


24,62, 88, 60, 26, 124, 


96, 102, 12, 24,48, 10 
56, 108, 56, 58, 110, 1 


0, 12, 24,48,0,0,0,0: 


12, 24,48, 32,32, 48, 


РАТМТ АТ 10, 10; "РЕЕАЗЕ МАТТ” 


ТАТ АТ 5, 0: "РОКЕ 23607, 250" '; Т 
"-Включение лати 
ТМТ АТ 42, 6. ТАК 3: "Таблица соответствий: " 


ЕМ орасе 
‚0: ВЕМ ! 


‚0: ВЕМ ^ 


5, 36, 36: 
24,0: ВЕ 
ОВ 
24,54,0: 
ВЕМ ` 
24,12: ВЕ 


ВОВОЕН 0: РАРЕВ 0: ТМК 5: СТЕАН 64255 


ТЕ $<>64289 ТНЕМ РВТМТ АТ 10, 10; "ЕВВОН ТМ ВАТА”: 


ТАТ АТ 1,6; ТАК 6; ' "НОВЫЙ набор СИМВОЛОВ” 


МК 4; " 
ских букв” 


ЩЬЫЬЭЮЯ 


-Включение русских букв””'; 


Программа 11. НОВЫЕ СИМВОЛЫ. 


ЗТОР 


ТАК 5; “РОКЕ 
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РАТА 
ВАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
ВАТА 
ВАТА 
ВАТА 
ВАТА 
РАТА 
ВАТА 
РАТА 
ВАТА 
РАТА 
РАТА 
ВАТА 
ВАТА 
ВАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
ВАТА 
ВАТА 
РАТА 
ВАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
ВАТА 
ВАТА 
РАТА 
РАТА 
РАТА 
РАТА 
РАТА 
ВАТА 
ВАТА 
РАТА 
РАТА 
ВАТА 
ВАТА 
РАТА 
ВАТА 
РАТА 
БАТА 
ВАТА 
ВАТА 
ВАТА 
ВАТА 
ВАТА 
РАТА 


0,0,0,0,0, 24,24,0: НЕМ. 

2,6, 12, 24,48, 96, 64,0: ВЕМ / 

124, 198, 206, 214, 230, 198, 124,0: ВЕМ 0 
24,56, 24,24,24,24,126,0: ВЕМ 1 

60, 102,6, 60, 96, 102, 126,0: ВЕМ 2 

60, 102,6,28,6, 102, 60,0: ВЕМ 3 
28, 60, 108, 204, 254, 12,30,0: ВЕМ 4 
126, 98, 96, 124,6, 102,60,0: НЕМ 5 
60, 102, 96, 124, 102, 102,60,0: НЕМ 6 
126, 102,6, 12, 24, 24,24,0: ВЕМ 7 
60, 102, 102, 60, 102, 102, 60,0: АЕМ 8 
60, 102, 102,62, 6, 102,60,0: ВЕМ 9 
0, 24, 24,0,24,24,0,0: ВЕМ : 

0, 24, 24,0,24,24,48,0: ВЕМ; 

12, 24,48,96,48,24,12,0: ВЕМ < 

0, 126, 126,0, 126, 126,0,0: ВЕМ = 


60. 102,102. 12.24.0240: ВЕМ ? 


204, 214, 214, 246, 214, 214,204,0: НЕМ @ 
30, 54, 102, 102, 126, 102, 102,0: НЕМ А 
254, 96, 124, 102, 102, 102, 252,0: ВЕМ В 
204, 204, 204, 204, 204, 206, 254,6: НЕМ С 
28, 44, 108, 108, 108, 108, 254,0: ВЕМ В 
254, 98, 104, 120, 104, 98,254,0: НЕМ Е 
124, 214, 214, 214, 124, 16,56,0: ВЕМ Е 
254, 102, 96, 96, 96, 96, 240,0: ВЕМ 6 
198, 108, 56, 56, 108, 198, 198,0: ВЕМ Н 
198, 198, 206, 222, 246, 230, 198,0: ВЕМ Т 
118, 182, 206, 222, 246, 230, 198,0: ВЕМ 4 
230, 102, 108, 120, 108, 102, 230,0: ВЕМ К 
30, 54, 102, 102, 102, 102, 102,0: ВЕМ Е 
198, 238, 254, 214, 198, 198, 198,0: ВЕМ М 
102, 102, 102, 126, 102, 102, 102,0: ВЕМ № 
124, 198, 198, 198, 198, 198, 124,0: ВЕМ 0 
126, 102, 102, 102, 102, 102, 102,0: ВЕМ Р 
126, 198, 198, 126, 54, 102, 198,0: ВЕМ 0 
252, 102, 102, 102, 124, 96, 240,0: НЕМ В 


60, 102, 192, 192, 192, 102, 60,0: НЕМ 5 
126, 90,24, 24,24,24,60,0: НЕМ Т 
102, 102, 102,62, 6, 102, 60,0: АЕМ ( 


> 
т 
> 
во) 
м 
> 
> 
го 
> 
—_ 
>) 
(<=>) 
> 
Г 
> 
> 
го 
> 
в®) 
—й: 
> 
<> 
=> 
г пт 
= 


гу 
(<*>) 
© 
г 
о 
(©) 
мы 
(Фр) 
Во) 
ге 
(®®) 
> 
5 - 
(©) 
> 
ге 
(©) 
> 
> 
(Фр) 
=> 
2—9 
| 
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60, 102,6,28,6, 102, 60,0: НЕМ 7 
198, 214, 214, 214, 214,214,254,0: ВЕМ [ 
60, 102,6, 30,6, 102, 60,0: ВЕМ \ 
198, 214, 214,214, 214,214,254,6: ВЕМ ] 


102, 102, 102, 102, 62,6,6,0: НЕМ 
0,0, 240, 60, 54, 54,60,0: ВЕМ 7 

0,0, 204, 214, 246, 214, 204,0: ВЕ 
0,0, 62, 102, 102, 102, 58,0: ВЕМ а 
‚0, 126, 96, 124, 102, 124,0: ВЕМ Б 


0 

4,6, 62, 102, 

0, 60, 102, 124, 96,62,0: ВЕМ е 

16, 124, 214, 214, 124,16,0: ВЕМ Е 
0 

0 

0 


26, 102, 96, 96, 96,0: ВЕМ 9 
98, 108, 56, 108, 198,0: ВЕМ п 
02, 102, 110, 118, 102,0: ВЕМ 1 


4 -ё-- 


48 
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1740 БАТА 24, 24, 102, 102, 110, 118, 102,0: ВЕМ 
1750 ВАТА 0, 0, 230, 108, 120, 108, 230,0: ВЕМ К 
1760 ВАТА 0, 0, 30, 54, 102, 102, 102,0: ВЕМ 1 
1770 АТА 0, 0, 198, 238, 254, 214, 198,0: ВЕМ т 
1780 ВАТА 0,0, 102, 102, 126, 102, 102,0: ВЕ 
1790 ВАТА 0, 0, 60, 102, 102, 102, 60,0: ВЕМ о 
1800 ВАТА 0, 0, 126, 102, 102, 102, 102,0: АЕМ р 
1810 ВАТА 0,0, 62, 102, 126, 54, 102,0: ВЕ 

1820 ВАТА 0,0, 252, 102, 102, 124, 96,240: ВЕМ г 
1830 ВАТА 0,0, 60, 102, 96, 102,60,0: ВЕМ $ 

1840 ВАТА 0, 0, 126, 24, 24, 24,24,0: ВЕМ 1 

1850 ВАТА 0, 0, 102, 102, 62,6, 60, 0: НЕМ и 

1860 ВАТА 0,0, 214, 214, 124, 214,214,0: ВЕМ \ 
1870 ВАТА 112, 88, 112, 124, 102, 102, 60,0: АЕМ м 
1880 ВАТА 0, 0, 96, 120, 108, 108, 120,0: НЕМ х 
1890 БАТА 0, 0, 198, 246, 218, 218, 246,0: ВЕМ у 
1900 ВАТА 0,0, 60, 102, 28, 102,60,0: ВЕМ 7 

1910 ВАТА 0,0, 198, 214, 214, 214,254,0: ВЕМ { 
1920 ВАТА 0,0, 60,6,30,6,60,0: ВЕМ Т 

1930 ВАТА 0,0, 198, 214, 214, 214, 254,6: ВЕМ У 
1940 ВАТА 0,0, 102, 102, 102,62,6,0: ВЕМ ^ 

1950 ВАТА 126, 227, 221, 209, 209,221, 227,126: ВЕМ © 


10 - подготовительные операции; 

20 - объявление текущим стандартного набора символов на случай повторного 
запуска программы. При этом текст следующей строки будет выводиться по- 
английски; 

30 - вывод на экран надписи РГЕАЗЕ УУАТГ (пожалуйста, подождите), так как 
чтение кодов новых символов из операторов РАТА занимает некоторое время; 

40 - установка переменной $ (счетчика контрольной суммы) в начальное 
состояние; 

50...30 - цикл, в результате выполнения которого оператор КЕАО из списка 
РАТА считывает коды, которые затем оператором РОКЕ записываются в ячейки 
памяти, начиная с адреса 64256 и по адрес 65023. Одновременно происходит 
суммирование всех кодов в переменной $; 

90 - если сумма всех прочитанных кодов (контрольная сумма) не равна 64289, то 
счет останавливается, так как несовпадение контрольной суммы с числом 64289 
указывает на ошибку в списке РАТА. В этом случае необходимо тщательно 
проверить, что же вы ввели в компьютер на самом деле; 

110 - включение режима новых символов; 

120...290 - вывод на экран инструкции по применению этой программы; 

310 - восстановление стандартного символьного набора; 

320 - запись кодов русского шрифта на ленту. Если вы работаете с дисководом, 
то строка 320 должна выглядеть так: 

320 ВАМООМТ7Е ЦЗН 15619: ВЕМ: ЗАУЕ “ВУЗ"СООЕ 64256, 768 


Изготовление спрайтов с помощью АгЕ Зша!о 


Мы познакомились с графическим редактором Ай Зааю, когда делали 
картинку-заставку, а теперь попробуем использовать его для создания спрайтов со 
сложным рисунком. При этом можно применять уже знакомые средства: 
рисование кистью, пером или распылителем, закрашивание замкнутых областей 
спрайтов всевозможными фактурами, и все это - с помощью богатой палитры 
цветов. Но в редакторе есть и еще несколько режимов, о которых мы раньше не 
говорили, а ведь они дают прекрасные результаты при создании спрайтов. 

Изучив новые возможности редактора, мы вначале познакомим вас с наиболее 
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простым способом кодировки изображения, который назовем методом «окон», а 
затем расскажем о другом способе, более сложном, но позволяющем более 
экономно расходовать память. 

Редактирование увеличенного изображения 

Если вы уже пробовали создавать спрайты в генераторе спрайтов, то могли 
заметить, насколько проще переносить изображение с бумаги на экран и 
насколько точнее получается рисунок при использовании увеличенного масштаба. 
Редактор Ай За также позволяет работать с увеличенным изображением, о чем, 
в основном, и пойдет разговор в этом разделе. 

Загрузите Ай 5а410о в компьютер и после появления главного меню установите 
стрелку на опцию МАСМУ (редактирование увеличенного изображения). АЦ 
5аЧ10 дает возможность при тонком редактировании пользоваться одним из трех 
масштабов. Вы можете увеличить изображение в два, в четыре или в восемь раз. 
После нажатия клавиши М и появления списка функций выберите, например, 
МАСМТНУХВ - редактирование деталей изображения с увеличением в 8 раз). В 
результате этого  курсор-стрелка заменится «увеличительным стеклом». 
Переместите его в нужное место и снова нажмите М - весь экран покроется сеткой, 
в которой каждая клеточка соответствует одному пикселю. Слева и сверху от 
рабочего поля будут находиться датчики положения увеличенного фрагмента по 
отношению к полному экрану (светлые прямоугольники); по краям этих датчиков - 
изображения стрелок, позволяющих передвигать лупу по экрану, не возвращаясь в 
основное меню. Пиктограмма с двумя прямоугольниками (слева вверху) дает 
возможность переместить лупу в верхний левый угол экрана. 

Над рабочим полем появится новое меню, в котором вы можете, не выходя из 
режима, изменить масштаб увеличения (х2, х4 и х8), выбрать один из трех способов 
редактирования (ЪЕТ - ставить точки, 

ВЕЗЕТ - стирать точки и ТОССГЕ - инвертировать точки). Опция АТТЕ$. 
полностью повторяет одноименный пункт в главном меню, а для выхода из режима 
увеличения используется слово МЕМО в правом верхнем углу экрана. 

Чтобы получить первые навыки работы с лупой, изобразите в средней части 
экрана прямоугольник. Лучше всего начинать рисовать, установив режим ТОССГЕ 
(если он еще не установлен). Тогда вы сможете не только закрашивать «пустые» 
точки, но и стирать лишние или неверно поставленные. Техника рисования такая 
же, как и при использовании пера: нажмите клавишу М и, не отпуская се, 
переместите перекрестье курсора в другую точку. Перемещаясь, курсор будет 
оставлять за собой след. После того как прямоугольник будет готов, установите 
стрелку на слово Мепа в правом верхнем углу экрана и нажмите М. Перед вами 
снова появится весь экран, и на нем - маленький черный прямоугольник, тот 
самый, который вы только что изобразили. 

Проделайте еще один опыт, но уже с цветовой палитрой. Опять войдите в 
режим восьмикратного увеличения, и теперь в функции АТТЕ$. меню подберите 
для ПМК желтый цвет, а для РАРЕК - красный. Попутно можете изменить и цвет 
бордюра. В любой части экрана нарисуйте новый прямоугольник, и вы увидите 
интересную картину: как только в клетке будет поставлена желтая точка, вокруг 
нее сразу же будет возникать фон красного цвета. Доведите прямоугольник до 
конца и вернитесь в главное меню. Теперь на экране появится желтый 
прямоугольник в окружении красного фона. Попробуйте еще несколько 
комбинаций для ПМК и РАРЕК, после чего можно очистить экран. Для этого в 
пункте АТТВ$. восстановите стандартные атрибуты (строчка З5ТАМРАВО)}, а затем 
выберите пункт МС. главного меню и выполните функцию СТЕАВ 5СКЕЕМ - 
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экран очистится для новых упражнений. 

Дадим еще несколько полезных советов перед тем, как вы начнете создание 
полноценного спрайта для своей игры. Работать будет намного удобнее, если на 
экране дополнительно выделить клетки размером 8х8 пикселей, то есть разбить 
поле экрана на знакоместа. С этой целью в главном меню необходимо выбрать 
пункт МС. и установить режим ВМСНТ СКШ 1. Весь экран превратится в 
«шахматную доску», клетки которой отличаются друг от друга яркостью. Теперь 
снова можно переходить в режим МАСМТЕУ и создавать самые лучшие в мире 
спрайты. 

Нарисуйте в увеличенном масштабе несколько самолетиков разных типов, 
ракету, танк, попробуйте свои силы в изображении взрыва. Как только очередной 
спрайт будет закончен, выбирайте пункт МЕМО, и сразу станет видно, как 
выглядит ваше детище в реальном масштабе. Может оказаться, что вы замахнулись 
на такую картинку, увеличенное изображение которой не помещается в окне. Не 
отчаивайтесь, вспомните о стрелках, которые дают возможность прокручивать 
экран во всех четырех направлениях. Когда же перемещение не помогает, 
помните, что в крайнем случае всегда можно изменить масштаб увеличения. 

Если у вас стало рябить в глазах от мелкой сетки, то от нее легко избавиться. 
Для этого в опции МАСМТУ установите стрелку на позицию СЕКТ и нажмите М. 
«Галочка» справа от слова СКШ заменится крестиком, что говорит об удалении 
сетки в режиме «увеличительного стекла». Если нажать М еще раз - «галочка» и 
сетка вернутся на свое место. Чтобы убрать с экрана «шахматную доску», 
необходимо в пункте М!ЗС. главного меню выбрать функцию КЕМОУЕ СВ. 

И последнее. Рисовать спрайты обычно удобнее в черно-белом изображении. 
Если нужно их потом раскрасить, можно поступить следующим образом. Выберите 
режим редактирования ТОССГЕ, а затем подберите в пункте АТТВ$. подходящие 
цвета и переместите курсор на то знакоместо, которое нужно раскрасить 
(«шахматную» сетку при этом лучше установить). Теперь дважды нажмите 
клавишу М. Два раза нужно нажимать для того, чтобы рисунок не изменялся - при 
первом нажатии точка ставится (или удаляется), а при повторном нажатии - 
стирается (или появляется вновь). Аналогично раскрасьте и все остальные 
знакоместа спрайта. 

Кодирование спрайта методом «окон» и запись его на ленту 

Итак, созданный вами спрайт уютно расположился на экране программы Ай 
[ао и теперь хотелось бы превратить это изображение в блок данных, а затем 
записать его на ленту. Как это сделать? 

В главном меню выберите пункт /М/ИМПРОМУ5 (работа с окнами). Как только вы 
нажмете клавишу М, появится новое меню, едва помещающееся на экране - так 
много в нем разных функций. С их помощью можно задавать окна произвольного 
размера, а со спрайтом, попавшим в окно, делать множество потрясающих вещей. 
Например, копировать его в разные места экрана (СОТ&РАЗТЕ \МИМРОМ)), 
копировать с изменением масштаба (КЕ-5САГЕ МЛМРОМ/), зеркально отображать 
его относительно горизонтальной или вертикальной оси (ЕР НОЕКТЛОМТАТ и ЕЫР 
УЕКТ!ГСАГ), поворачивать на 90, 180 и 270 градусов (КОТАТЕ 1/4, 1/2, 3/4) и многое 
другое, о чем подробно можно узнать в книге [1] или кратко - в Приложении 3. 
Чтобы по достоинству оценить меню МЛМРО\МУЪ, попробуйте 
поэкспериментировать хотя бы с теми функциями, о которых мы упомянули выше. 
Вернемся, однако, к кодированию спрайта. 

Установите стрелку на функцию ПЕРПМЕ \М/ИМРОМ/ (задание окна 
произвольного размера) и нажмите М. Стрелку заменит маленький квадратик. 
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Переместите его в левый верхний угол спрайта и нажмите М, после чего двигайте 
квадратик вниз и вправо - вы увидите, как за ним потянется прямоугольник из 
пунктирных линий. Спрайт должен полностью поместиться в этот прямоугольник, 
причем нужно постараться, чтобы границы спрайта и прямоугольника полностью 
совпали. Снова нажмите М - окно задано. Следующий шаг - установите курсор на 
пункт ТЕХТ главного меню (работа с текстами). Здесь тоже обширное меню, но нас 
будет интересовать только последняя его строка - ЕОМТ ЕРГГОКВ (редактор набора 
символов). ЕОМТ ЕРТГОВ позволяет редактировать и создавать новые символьные 
наборы, которые можно использовать затем в своих программах, о чем мы 
упоминали в разделе «Русификация программ». После перехода в редактор 
появляется новый экран, в нижней части которого размещаются все 96 возможных 
символов. Символ, отмеченный указателем, и два соседних с ним отображаются в 
центре экрана, увеличенные в восемь раз (так же, как и в режиме МАСМ!ЕУх8). Их 
можно изменить. Для этого поставьте курсор на тот пиксель, который вы хотите 
включить или выключить и нажмите М. Нужные вам буква или знак из набора 
тоже выбираются с помощью стрелки и клавиши М. 

Итак, выберем стрелкой букву А, начиная с которой будут кодироваться части 
изображения на экране, и перейдем к функции МГС. в меню ЕОМТ ЕПТТОК. Оно 
содержит всего две строки, из которых нам потребуется САРТОВКЕ ВОМТ 
(копирование символов с экрана). Нажимаем клавишу М - спрайт закодировался. 
Теперь всем буквам, начиная с А, соответствуют графические символы, 
представляющие части вашего спрайта. Если вам что-то не понравилось в спрайте и 
вы решили его доработать, прежний набор символов легко восстановить, выбрав в 
режиме МС. функцию СОРУ КОМ (загрузка стандартного набора символов из 
ПЗУ). Поскольку все 96 символов набора можно использовать как графические, то 
можно получить довольно большие спрайты с размерами 6х 16, 8.х 12 ит. д. 
Примеры спрайтов приводятся на рис. 3.6. 


Рена 
1 8 Ен и |. а на 
91534567 
= <=; 
с фе-< те сое 8 3 а 
ЕЕНТУКЕ 
МЫОРЫ 
3 диийзь АТИ 9 Х =: 
ХЕ Г шх 
4 == 14 1 ©: 
ее: т в 
ЗО Е 14 = 
= к 
[= их За 


Для записи кодов, содержащих новый набор символов, необходимо, находясь в 
редакторе символов ЕОМТ ЕОТГОК, выбрать пункт ЕЕ (запись, чтение и проверка 
файлов), а в нем - функцию ЗАУЕ ЕПЕ... и нажать М. После этого на экране 
появится запрос: 

Е1]епаме? (имя файла?) 

Введите какое-нибудь имя, например, ЗУМВОГ и нажмите клавишу Ещег. Сразу 
же появится сообщение: 

ОТагЕ таре, Пеп ргезз$ апу Кеу 

после чего необходимо включить магнитофон и нажать любую клавищу. 
Начнется запись блока данных нового набора символов длиной 768 байт. После ее 
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окончания можно проверить запись, выбрав в том же меню опцию УЕКТРУ ЕШЕ. 

Использование полученного спрайт-файла 

Теперь покажем, как использовать полученный кодовый блок в игровой 
программе. Сначала запишите на ленту программу-загрузчик: 

10 СТЕАВ 64255 
20 [ОА “ЗУМВОЕ"СОБЕ 64256 
30 ЕОАГ ”" 

10 - удаляются все переменные и массивы, очищается экран, а также 
изменяется адрес, определяющий верхнюю границу области бейсик-программы. 
Тем самым выделяется место в памяти для загружаемых кодов; 

20 - чтение кодов новых символов, содержащихся в файле 5УМВОГ, и загрузка 
их по адресу 64256 в память компьютера; 

40 - загрузка игровой бейсик-программы, в которой будет использован 
созданный вами спрайт (спрайты). 

А вот как можно использовать новый набор символов в самой бейсик- 
программе. Выведем на экран, например, спрайт 1 («катер»), изображенный на рис. 
3.6. 

100 РОКЕ 23607, 250 
110 РАТМТ " !""#$%&`" 
120 РАТМТ "()*+, -./” 
130 РАТМТ "01234567" 
140 РОКЕ 23607, 60 


100 - текущим устанавливается новый набор символов 5УМВОГ, который вы 
загрузили с ленты; 

110...130 - вывод на экран закодированного изображения спрайта размером 8х3 
знакоместа. Конечно, в вашей программе спрайты могут быть и других размеров, 
тогда изменятся и строки программы. Здесь важно то, что, в отличие от 
предыдущих примеров, буквы вводятся уже не в режиме курсора [С], а в обычном 
режиме. Хочется также обратить ваше внимание на способ печати оператором 
РЕАПМТ символа кавычек: их нужно вводить в тексте два раза подряд. А одиночные 
кавычки, как вы знаете, служат для ограничения печатного текста; 

140 - выключение нового набора символов, после чего текущим опять 
становится стандартный набор символов компьютера. 

Создание спрайтов с учетом их конфигурации 

При создании спрайтов достаточно сложной формы метод «окон» может 
оказаться весьма расточительным. Ведь окно в этом случае будет охватывать не 
только «полезное» пространство, но и некоторые пустые знакоместа, где 
изображение отсутствует. Поэтому иногда может оказаться полезным другой 
способ создания и кодировки спрайтов. Собственно, таким способом мы уже 
пользовались когда делали спрайты самолетов (рис. 3.2 и 3.4), теперь же 
рассмотрим его более подробно и с применением редактора Ай 5910. 

После того, как спрайт будет нарисован на бумаге В клетку и разбит на 
знакоместа, выделим только те фрагменты, в которых есть включенные пиксели, и 
отбросим все пустые (рис. 3.7, а). Затем выделенным знакоместам поставим в 
соответствие различные символы (рис. 3.7, 6). Закончив подготовительную работу, 
загрузим Ай 510 и войдем в режим ЕОМТ ЕРГТГОК 

Теперь предстоит довольно утомительная работа - перенос одного за другим 
кусочков «мозаики» на место выбранных символов. Для этого установите стрелку 
на букву или знак в нижней части экрана, с которого начнется кодирование, и 
после нажатия М этот символ и два соседних появятся в центре в восьмикратном 
увеличении, причем каждая клеточка будет соответствовать одному пикселю. Для 
очистки старого символа можете воспользоваться функцией СТЕАК пункта 
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СНАКАСТЕК, а затем на чистом месте начинайте ставить точки в соответствии с 
вашим эскизом. Рисуйте так же, как и в режиме «увеличительного стекла» - 
наводите стрелку на пиксели, которые вы хотите включить или выключить и 
нажимайте М. Покончив с одним символом, переходите к следующему. Таким 
способом можно закодировать один болышой или несколько маленьких спрайтов; 
лишь бы общее число символов не превыттало 96. 

Итак, если сравнить этот метод с методом «окон», который мы рассмотрели 
ранее, то можно обнаружить что способ создания спрайтов с учетом их 
конфигурации значительно экономнее с точки зрения использования памяти. С 
другой стороны, метод «окон» заметно проще - не нужно возиться с бумагой, 
линейкой, запоминать символы и т. д. Ну, а какой из этих двух способов выбрать, 
зависит от конкретной ситуации и вашего вкуса. 


Построение пейзажей 


Играя на компьютере в разнообразные игры, вы наверняка заметили, что, 
кроме спрайтов («своих» и «чужих»), игровое пространство заполнено объектами, 
о которых мы подробно еще не говорили. Речь идет о тех объектах, которые 
составляют фон игры и, будучи объединенными вместе, носят название пейзажа. 
Напомним, что ранее мы отнесли к пейзажам все неподвижные элементы 
изображения, такие, например, как небо, земля, вода, здания, деревья, мосты и т. д. 
Впрочем, неподвижность элементов относительна, во многих играх пейзаж все же 
движется (например, В-Туре) или немного меняется, как мы увидим ниже. 

Назначение пейзажа различается от игры к игре. В одних программах 
(Пцегпайопа| Сагае, Е15{+) он играет чисто декоративную роль, демонстрируя 
безграничные возможности компьютерной графики. В других (СВез$, Тем$, 
оабо{етгт) является неотъемлемым ее элементом, без которого 
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Рис.3.7. Подготовка спрайта к кодированию. 

игра потеряла бы всякий смысл. Действительно, как можно передвигать фигуры 
в шахматах или шашках без доски, которая в данном случае составляет основу 
пейзажа! Таким образом, под пейзажем в компьютерных играх мы будем понимать 
нечто большее, чем «вид из окна», отнеся сюда еще и всевозможные лабиринты, 
стаканы, разрезы зданий, пульты управления самолетами и прочие неподвижные 
изображения. Теперь в качестве примеров рассмотрим несколько пейзажей, на 
основе которых вы сможете создавать свои, будем надеяться, более сложные и 
занимательные. 

В простейшем случае пейзаж - это разделенный на две половинки экран, 
верхняя часть которого, синяя, имитирует небо, а нижняя, зеленая, соответствует 
поверхности земли. Без такого пейзажа не обойтись, когда создаются игры по 
сюжетам воздушных сражений. Программа состоит всего из четырех строк: 

10 ВОВОЕВ 0: РАРЕВ 1: (1$ 

20 ЕОВ №=14 ТО 21 

30 РАТМТ АТ №,0; РАРЕН 4; ТАВ 31;” " 
40 МЕХТ № 

10 - устанавливается черный бордюр, и весь рабочий экран окрашивается в 
синий цвет; 

20 - начало цикла. Переменная М соответствует номеру строки экрана; 

30 - тело цикла, осуществляющего быстрое окрашивание строк экрана с 14 по 21 
в зеленый цвет. Достигается это печатью в каждой строке 31 пробела плюс еще 
одного цветом РАРЕК. Если то же самое выполнить с помощью операторов РГОТ и 
ОКАМ/, то окрашивание будет происходить чрезвычайно медленно; 

40 - конец цикла. 

Следующая программа создает пейзаж в буквальном смысле этого слова. После 
ее ввода в компьютер и запуска, на экране вы увидите сверху голубое небо, снизу - 
синюю поверхность кристально чистой воды, а между ними хаотическое 
нагромождение гор (рис. 3.8). 


Рис. 3.8. Горная гряда. 
Программа 12. ГОРНАЯ ГРЯДА. 


10 ТЕТ 1=60 

20 (ЕТ 91г=1 

30 ВОНОЕВ 0: РАРЕН 5: ТМК 0: (1$ 
100 РОН п=0 ТО 255 

110 РЕОТ п,0: БВАМ 0, п 

120 ТЕ АМО>0.8 ТНЕМ ЕЕТ 91г=-01г 
121 ТЕ 1>80 ТНЕМ 1ЕТ 91г=-1 
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122 ТЕ 1<32 ТНЕМ ЕТ 91и=1 
130 ТЕТ Н=И+91г 
140 МЕХТ п 
150 РОВ п=19 ТО 21: РВТАМТ АТ п, 0; ТАК 1: О\ЕВ 1: "ПАППППППАПАПППОЛАААПППОЛАААПОЛОЛО” 
160 МЕХТ п 
10, 20 - установка начальных значений переменных, где В - расстояние от 


нижнего края экрана до верхней кромки горы, а Ап приращение высоты 
(положительное или отрицательное, в пикселях) в процессе рисования гор; 

30 - установка атрибутов экрана; 

100 - начало цикла, в котором М соответствует координате х в последующих 
операторах; 

110 - черным цветом рисуется вертикальная полоска высотой В и толщиной в 
один пиксель всего выводится 256 таких полосок; 

120 - выполнение этой строки приводит к тому, что вершины гор получаются 
разной высоты, причем совершенно случайной что соответствует реальной 
ситуации. Это достигается путем сравнения случайного числа (КМ) с числом 0.8. 
Как только условие выполняется, приращение высоты меняет знак на 
противоположный и вместо увеличения полосок они начинают уменьшаться (или 
наоборот); 

121, 122 - этими строками задаются соответственно верхняя и нижняя границы 
высоты полосок. Так, если Б превысит 80 пикселей, приращение станет 
отрицательным, и гора начнет уменьшаться. Если же БВ будет меньше 32, то 
приращение установится положительным, что приведет к увеличению горы в 
данном месте экрана; 

130 - установка слелующего значения высоты полоски с учетом всех условий; 

140 - конец цикла; 

150, 160 - эти строки рисуют 3 полосы синего цвета, имитируя воду. 

Среди наших читателей, вероятно, найдется мало людей, которые не любили бы 
мультфильмы. Оказывается, принцип, положенный в основу создания движущихся 
изображений в мультфильмах, можно с успехом использовать и для «оживления» 
спрайтов на экране компьютера. Суть идеи очень проста: в одно и то же место 
экрана необходимо один за другим вывести несколько спрайтов подряд, причем 
каждый последующий должен по форме чуть-чуть отличаться от предыдущего. 
Если время пребывания на экране одного спрайта сделать небольшим, то в итоге 
возникнет потрясающий эффект плавно меняющейся картинки. Заметим, что этот 
прием мы уже использовали однажды, когда предлагали вам вывести на экран 
спрайт вертолета с вращающимся винтом. 


Рис. 3.9. Фазы «мерцания» звезд. 
Приведенная ниже программа создает на экране еще один пейзаж - звездное 
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небо с ярко вспыхивающими и гаснущими звездами, который вы можете 
использовать в какой-нибудь космической игре. Такой пейзаж, кстати, будет 
неплохо смотреться и в заставке. Для того, чтобы звездочка вспыхнула, программа 
должна сформировать и вывести один за другим 4 спрайта (рис. 3.9), а для того, 
чтобы погасла (причем не сразу, а постепенно), необходимо вывести эти же 
спрайты, но уже в обратном порядке. Рассмотрим программу, которая проделывает 
все эти действия. 

Программа 13. ЗВЕЗДНОЕ НЕБО. 


3 
й 


(058 “а”+1+п*8), а 


100 ТАК 6: РАРЕВ 0: ВАТЕНТ 1: ВОВОЕВ 0: (13 


110 ГЕТ зфаг=30+ТМТ (А№б»20): ОТМ а(2, зфаг) 
120 РОН п=1 ТО зфаг 

130 (ЕТ а(1.п)=ТМТ (А№*22) 

140 ЕТ а(2, п)=ТМТ (№32) 

150 МЕХТ п 


В 
200 РОВ п=1 ТО зтаг 

РВТМТ АТ а(1, п), а(2, п); "А" 
220 МЕХТ п 

ВЕМ. Е РЕЕЛЕЕЕЬЫА 
300 РОН п=1 ТО А№*20: РАУЗЕ 3: МЕХТ п 
ГЕТ 7=Т№Т (ВМО »*$Таг)+1 

320 РОВ п=0 ТО 3 
330 РАТМТ АТ а(1,7),а(2,7); СНВ$ (С00Е "А"”+п) 
340 РАЦЗЕ 3 

350 МЕХТ п 

360 РОВ п=2 ТО 0 ЭТЕР -1 

370 РАТМТ АТ а(1,7),а(2,7); СНВ$ (С00Е “А"+п) 
380 РАЦЗЕ 3 
390 МЕХТ п 
400 60 ТО 300 

1000 БАТА 0.0,0,0,16,0,0,0 

1010 БАТА 0,0, 0, 16, 56, 16,0,0 

1020 ОАТА 0,0, 40, 84, 56, 84, 40,0 

1030 БАТА 0, 16, 84, 56, 254, 56, 84, 16 

10...50 - запись в символы, определяемые пользователем, изображений звезд. 
При этом переменная п «перебирает» строки с операторами РАТА, а переменная 1 - 
числа в каждой строке РАТА; 

100 - установка атрибутов экрана; 

110 - задание случайного количества звезд, но в пределах от 30 до 50. 
Резервирование памяти под массив а, в который будут заноситься координаты этих 
звезд; 

120...150 - в цикле задаются случайные координаты положения звезд, причем 
отдельно дляу (строка 130) их (строка 140); 

200...220 - вывод на экран звездочек, каждая из которых выглядит просто как 
точка на экране, то есть первую фазу на рис. 3.9; 

300 - пауза случайной длительности; 

310 - вычисляется случайный номер звезды, той самой, которая будет 
вспыхивать, а затем гаснуть; 

320...350 - вывод одного за другим четырех спрайтов, причем в одно и то же 
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место экрана, что создает эффект вспышки; 

360...390 - вывод одного за другим трех спрайтов в то же самое место экрана, но 
уже в обратном порядке. В результате звезда как бы гаснет; 

400 - безусловный переход на строку 300, и теперь уже другая звездочка 
вспыхнет и погаснет; 

1000...1030 - блок данных, который содержит информацию о четырех спрайтах, 
создающих на экране мультипликационный эффект. 

О том, как сделать картинки более сложными и занимательными, мы расскажем 
в главе, посвященной Газег Ваз1с. 

Теперь рассмотрим метод, а вместе с ним и программу, которые помогут вам 
создавать очень сложные пейзажи, не уступающие по качеству фирменным. 
Коротко суть метода состоит в следующем. Вначале на листе бумаги, расчерченном 
под экран, выполняется эскиз будущей картинки, например, разрез здания, 
лабиринт, место будущего сражения и т. д. При этом желательно, чтобы элементы 
картинки как можно чаще повторялись (это могут быть кирпичи, бревна, деревья, 
камни). Затем каждый из элементов подвергается кодировке, например, с 
помощью программы «Генератор спрайтов», а полученные коды выписываются. 
Как использовать эти коды, лучше всего посмотреть на примере конкретной 
программы, которая создает пейзаж к игре с условным названием «Поиски клада» 
(рис. 3.10.). 


Рис. 3.10. Пейзаж «Дом с алмазами». 

Пейзаж сделан таким образом, что в нем присутствует всего четыре элемента, 
каждый из которых занимает одно знакоместо. Это кирпич, фрагмент лестницы, 
грунт и алмаз. Конечно же, элементы могут быть и более сложными и занимать 2, 3, 
б знакомест, но тогда программу в части операторов РАТА следует писать более 
внимательно, чтобы отдельные детали одного элемента не оказались в разных 
местах экрана. Перейдем теперь к рассмотрению программы и ее особенностей. 

Программа 14. ПЕЙЗАЖ «ДОМ С АЛМАЗАМИ». 
10 ВОВОЕН 0: РАРЕН 0: ТМК 7: (15 
15 ВЕМ **» бгарй1сС$ *»** 
20 РОН п=0 ТО 31 
30 ВЕАО $ 
40 РОКЕ 058 “А”+п, $ 
50 МЕХТ п 
60 ВЕМ *** ОТагЕ **» 
65 ОТМ с(20): БТМ \(20): О1ТМ п(20): ТЕТ п=1 


70 ЕН у=1 ТО 20 

80 РОН х=1 ТО 30 

90 НЕАВ $ 

100 ТЕ $=0 ТНЕМ 60 ТО 150 

110 ТЕ $=1 ТНЕМ РАТМТ АТ у,х; РАРЕН 2; ТАК 7; "А": 60 ТО 150 
120 ТЕ з=2 ТНЕМ РАТМТ АТ у,х; "В": 60 ТО 150 

130 ТЕ $=3 ТНЕМ РАТМТ АТ у,х; ТМК 6; "С": 60 ТО 150 
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140 ТЕ $=4 ТНЕМ 1ЕТ с(м)=ТМТ (А№О*7)+1: 
у, х; ТАК 5; "0": 60 ТО 150 

150 МЕХТ х 

160 МЕХТ у 

165 РШОТ 8,8: 

170 РОВ п=1 ТО п-1 

180 ТЕТ с(п)=с(п)+1 

190 ТЕ с(п)>7 ТНЕМ 1ЕТ с(п)=1 

192 РАТМТ АТ (п), п(п); ТМК с(п); "0" 
194 МЕХТ п 

196 60 ТО 170 

200 ВЕМ *»* Бата 1 *** 

210 БАТА 255, 32, 32, 32,255,2,2,2 

220 БАТА 1, 8, 64, 1,16, 128,4, 32 

230 БАТА 3,2, 12, 8, 48, 32, 192, 128 

240 ОАТА 0, 8, 42, 28, 127, 28, 42,8 

250 ВЕМ *»* Бата 2 *х** 

255 ВАТА 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
260 ВАТА 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
265 ВАТА 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
270 ВАТА 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0, 
275 ВАТА 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
280 БАТА 0,0,0,0,0,1,4,0,0,0,1,0,0,0,0, 
285 ВАТА 0,0,0,1,1,1,1,1,1,0,1,1,1,1,0 
290 ВАТА 0,0,0,0,0,1,0,0,0,3,1,0,0,0,3, 
295 ВАТА 0,0,0,0,0,1,0,0,3,0,0,0,0,3,0, 
300 ВАТА 0,0,0,0,0,0,0,3,0,0,1,1,1,1,0 
305 ВАТА 0,1,1,1,1,1,1,1,0,0,1,0,0,0,0, 
310 ВАТА 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0 
315 ВАТА 0,0,0,0,0,0,0,0,0,3,1,0,0,0,3, 
320 ВАТА 2,0,0,2,2,1,4,0,3,0,1,0,0,3,0 
325 ВАТА 2,0,0,2,2,1,1,1,1,1,1,1,1,0,0, 
330 ВАТА 2,0,0,2,2,1,0,0,0,0,1,0,0,0,0 
335 ВАТА 2,0,0,2,2,1,0,0,0,0,0,0,0,3,1 
340 ВАТА 2,0,0,0,0,0,0,0,0,0,0,0,3,0, 1 
345 ВАТА 2,2,2,2,2,1,1,1,1,1,1,1,1,1,1, 
350 ВАТА 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 


, 


10 - установка атрибутов экрана; 
20...50 запись в область 


ГЕТ п(м)=х: ЕЕТ м(м)=у: ЕЕТ м=м+1: РАТАТ АТ 


ОНАИ 0, 167: ОВАМ 239,0: ОВАМ 0, -167: ОВАМ -239,0 
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Ор@ кодов четырех графических символов, 


соответствующих элементам изображения. Сами коды располагаются в строках 


200...240; 


65 - резервирование памяти под массивы, причем С - цвет, У - координаты у, Н - 
координаты х, т = 1 - первоначальное количество алмазов; 
70...160 - основная часть программы, осуществляющая чтение из операторов 
РАТА (строки 255...350) информации об элементах пейзажа и вывод их на экран; 
70 - начало внешнего цикла, в котором устанавливается номер строки экрана; 
80 - начало внутреннего цикла, в котором устанавливается позиция знакоместа 


по горизонтали, 


90 - чтение данных из списка РАТА, где 0 означает пустое место (нет никаких 
элементов), 1 - элемент стены, 2 - грунт, 3 - фрагмент лестницы, 4 - алмаз; 
100 - если в списке РАТА будет прочитан 0, то данное знакоместо экрана 
пропускается: координата х увеличивается на 1, а из списка читается следующий 


элемент; 


110...130 - если в списке РАТА записано число 1, 2 или 3, то в знакоместо с 
координатами х, у будет поставлен соответственно кирпич, грунт или кусок 
лестницы. При этом расцветка элемента изображения либо устанавливается в 
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данной строке, либо соответствует текущим атрибутам. После печати программа 
переходит на начало цикла; 

140 - если в списке РАТА записано число 4, то вначале устанавливается 
случайный номер цвета, затем запоминаются координаты х и у, где должен 
располагаться алмаз, и, наконец, на экране появляется его изображение; 

150, 160 - конец циклов; 

165 - установка белой рамки, ограничивающей размеры игрового поля; 

170...196 - в цикле меняются цвета алмазов, они выглядят как драгоценные 
камни, переливающиеся разными цветами; 

200...240 - коды графических символов; 

250...350 - данные пейзажа, представленные в цифровой форме. 
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Прием программирования - это четкий и эффективный способ выполнения 
некоторой задачи в программе. Минуты, израсходованные на планирование 
программы, помогут вам позднее сэкономить часы, которые были бы потеряны на 
ее отладку. При профессиональной разработке программных средств вначале 
составляется подробный план программы с учетом самых мелких деталей, а затем, 
при помощи языка программирования, этот план реализуется в программе. 
Примерно так же должны будете действовать и вы, когда начнете писать свою 
собственную игровую программу: перво-наперво придется составить «план 
действий компьютера» - краткий перечень тех основных задач, которые должен 
выполнить компьютер. Подобный план мы приводили во второй главе, описывая 
словами последовательность выполняемых компьютером операций. 

Но существует еще и другой способ, который, возможно, покажется вам более 
удобным. Метод, о котором мы хотим рассказать, заключается в составлении так 
называемой блок-схемы. Она строится по очень простым правилам и представляет 
собой графическое изображение последовательности основных шагов выполнения 
программы. После составления такой схемы значительно проще писать и саму 
программу. 


Составление блок-схемы программы 


При разработке программы очень важно, чтобы ее отдельные части следовали в 
правильном порядке. Например, еще до использования переменной необходимо 
присвоить ей какое-нибудь значение, а прежде чем напечатать какие-либо данные, 
их нужно каким-либо образом получить, например, ввести с клавиатуры. Для 
построения блок-схемы используют несколько видов геометрических фигур, 
причем каждой фигуре соответствуют вполне определенные типы действий. Чаще 
всего встречаются следующие элементы (рис. 4.1): 


Начало Конец 


| Ввод | Вывод | 


рис. 4.1, Элементы блок-схемы. 

Овалы с налписями НАЧАЛО и КОНЕЦ показывают, где начинается и гле 
заканчивается программа. 

Параллелограммом обозначаются действия, связанные с вводом или выводом 
информации. Данные, поступающие в программу с клавиатуры, от джойстика или 
от магнитофона, называются входными. Выходными являются данные, идущие от 
компьютера. Они могут выводиться на экран с помощью оператора РЕП\Т, 
записываться на магнитную ленту или распечатываться на бумаге. 

Прямоугольник ПРОЦЕСС используется для обозначения операций 
внутренней обработки, производимой компьютером. Это может быть, например, 
присвоение переменной значения оператором ГЕТ или любая достаточно сложная 
задача, для решения которой необходимо использовать несколько операторов. 

Мы уже говорили об операторе ТЕ...ТНЕМ, который дает компьютеру задание 
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проанализировать некоторое условие, например, является ли истинным 
выражение 5=5. Дальнейшие действия компьютера зависят от того, выполняется 
или не выполняется конкретное условие. Возможные различные 
последовательности действий называются ветвями программы. Для обозначения 
оператора ТЕ...ТНЕМ на блок-схемах используются ромбы, называемые блоками 
проверки условий. Вершины ромба соответствуют различным решениям, которые 
может принимать машина в зависимости от заданного условия. 

Рассмотрим простой пример. Пусть компьютер генерирует 20 случайных чисел, 
каждое в пределах от 1 до 10. Задача программы - сосчитать количество чисел, 
превышающих пятерку. На рис. 4.2 показано, как выглядит блок-схема программы. 


Начало 


Установка экрана 


Начальные 
значения 
переменных 


Генератор 
случайных чисел 
А=КВМО 


Счетчик 
количества чисел 
М=М+1 


Печать 
Да 
количества 
чисел > 5 
Счетчик 
Конец количества 
чисел > 5 


Рис. 4.2. Блок-схема сортировки случайных чисел. 

Как видим, схема содержит блоки НАЧАЛО и КОНЕЦ, ряд прямоугольников, в 
которых выполняются операции, связанные с решением поставленной задачи, 
блоки проверки условий и печать результата, то есть все основные элементы, 
которые мы перечисляли. Заметим, что здесь необходимы два блока проверки 
условий: в одном из них проверяется, не превышает ли общее количество чисел 20, 
а в другом выносится суждение: «Полученное случайное число больше пяти? ». 
Если ответ на вопрос, записанный в блоке, положительный (Да), то выполнение 
программы идет одним путем, а если отрицательный (Нет), то другим. Стрелки 
показывают последовательность решения задачи. 

Далее приведена соответствующая этой блок-схеме программа. 
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Начало 
Печать 
заставки 


Задание 
случайного 
числа Х 


Счетчик 
количества шагов 
Р=Р+1 


Ввод 
Вашего 
числа С 


Печать 
"УГАДАЛИ" 


Да 
Печать Печать 
"НЕДОЛЕТ" "ПЕРЕЛЕТ" 


Будете 
играть еще? 
УМ 


Рис. 4.3. Блок-схема игры ЧИСЛА. 

Программа 15. ВМО. 
10 ВОВОЕН 1: РАРЕВ 1: ТМК 6 
20 (15 
30 ТЕТ п=0: ТЕТ 3=0 
40 ТЕТ а=В№0*10 
50 (ЕТ п=п+1 
60 ТЕ п<=20 ТНЕМ 60 ТО 100 
70 РВТМТ $ 
80 ЭТОР 
100 ТЕ а>5 ТНЕМ ЕТ $=8+1 
110 60 ТО 40 

После того, как мы составили блок-схему, особых пояснений к программе уже 
не требуется. 

Попробуем теперь составить блок-схему, а затем и саму программу для игры 
ЧИСЛА. Суть игры проста и состоит в следующем. Компьютер генерирует целое 
число в пределах от 1000 до 9999, которое вам неизвестно. Задача состоит в том, 
чтобы за минимальное количество шагов угадать это число. При этом программа на 
каждом шаге должна сравнивать ваше число с числом, «задуманным» компьютером 
и сообщать: меньше, больше или равно введенное вами число тому, что находится в 
памяти компьютера. На основании сюжета игры можно предложить такой вариант 
блок-схемы (рис. 4.3): 

При положительном исходе игры должна быть предусмотрена возможность 
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начать ее сначала. Заменяя каждый элемент блок-схемы одним или группой 
операторов, можно получить следующую программу. 

Программа 16. ЧИСЛА. 
ВОНОЕВ 1: РАРЕН 1: ТМК 5 

5 
АТМТ АТ 1, 10; ТМК 4; "хх ”; ТАК 3; "СНТЗЕА"; ТМК 4;” **" 

ГОТ 60, 173: ОНАМ 136,0: ОНАМ 0,-20: ОВАМ -136,0: ОНАМ 0, 20 
АТАТ АТ 4, 18; ТАК 7; "1000<х<9999” 

ЕТ Х=ТМТ (А№0*8999+1000) 

ЕТ №=0: ЕТ С=0: ЕЕТ Р=0 


У 
Фа 
РЕ: Е Е 


120 ТМРИТ “ТМРИТ С:”;С 

130 ЕЕТ М=\+4: ТЕ №=20 ТНЕМ (ЕТ №=4: 60 508 600 
140 РАТМТ АТ №,0; ТМК 6; "СНТЗЕО:"; С 

ЕМ 60 ТО 400 

ЕМ 60 ТО 200 


БОЕЕТ ------ 
210 РВТМТ АТ №+2,0; ТМК 5; "№";Р; ТМК 4;” - МЕБОШЕТ : ”;С;” < Х" 
0 60 ТО 110 300 ВЕМ -- РЕНЕСЕТ ------ 

0 РАТАТ АТ №+2,0; ТАК 5; "М№;Р; ТМК 2;” - РЕВЕЕЕТ : ”;С;” > Х" 
320 60 ТО 110 400 ВЕМ -- ЦбАВАЕТ ------ 
0 
0 
5 


РАТМТ АТ №+2,0; ТМК 4; "ППППП-- ”; ТАК 3; "ОбАБВАЕТГ"; ГК 4; ” --" 
РАТМТ #0; ТАК 7; "ПППППППППППЛЛХ = ";Х 


440 60 ИВ 600 
450 РАТМТ АТ 10,0; ТАК 5; "МЕМ САМЕ 97ПП(У/М)” 
460 ТЕ ТМКЕУ$="У" ОВ ТМКЕУ$="у" ТНЕМ 60 ТО 10 
470 ТЕ ТМКЕУ$="М" ОВ Т№МКЕУ$="п” ТНЕМ 60 ТО 700 
480 60 ТО 460 
600 ВЕМ -- СЁ5 -------- 
610 РОН Т=3 ТО 21 
620 РВТМТ АТ 1, 0; "ПППППППАЛАПАПИППППППААААААППИПЛЛО” ВЕМ 32 расе 
630 МЕХТ Т 640 ВЕТИОВМ 
700 (15 
В этой Программе в строке 120 встречается новый оператор ПМРОТ. Он служит 
для ввода в программу числовых или символьных данных с клавиатуры и работает 
подобно оператору ГЕТ, присваивая указанной после него переменной введенное 
значение. В оператор ПМРОТ можно включать тексты для вывода на экран (правда, 
только в служебное окно}; при этом, как и в операторе РАПУТ, можно указывать 
атрибуты, позицию печати текста и т. д. Ввод данных всегда заканчивается 
нажатием клавиши Ещег. Например, выполните строчку: 
ТМРИТ а: РАТМТ а 
В служебном окне появится мерцающий курсор, как при вводе строк 
программы. Наберите какое-нибудь число, используя при необходимости знаки +, 
- или . (точка). Можете использовать курсорные клавиши, а также клавишу ее. 
Допускается ввод не только чисел, но и целых выражений, например, 
11.2 8*2.5/1.7- ПМ (15*180/РП. Затем попробуйте поэкспериментировать с вводом 
символьных переменных. Наберите и выполните, к примеру, такую строку: 
ТМРИТ ТМК 2; "РТеазе епфег уоиг паме: “;п$: РАТАТ п$ 
В служебном окне появится надпись красного цвета, предлагающая сообщить, 
как вас зовут. Следом за текстом вы увидите мерцающий курсор в кавычках, 
говорящих о том, что требуется вводить символы, а не числа. Наберите свое имя и 
нажмите Ещег, после чего вы сможете прочитать его на основном экране. Если 
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кавычки вам мешают, их можно 
убрать включив в оператор ПМУРУОТ непосредственно перед переменной 
ключевое слово ЕИМЕ: 


ТМРИТ ТАВ 5; ИЛМЕ а$ 
В этом случае курсор появится уже без кавычек, как и при вводе чисел. 


Теперь прокомментируем остальные строки программы. 

10...45 - вывод на экран названия игры и информации о диапазоне 
«задуманного» компьютером числа; 

50 - переменной Х присваивается случайное значение, которое нужно будет 
угадать; 

60 - установка промежуточных переменных; 

110 - счетчик числа тпагов; 

120 - с помощью оператора ПМРУТ переменной С присваивается значение, 
введенное с клавиатуры; 

130 - после полного заполнения экрана ответами, он очищается подпрограммой, 
расположенной со строки 600, освобождая место для последующих ответов; 

140 - отображение на экране введенного вами числа; 

150...170 - эти строки соответствуют двум блокам проверки условий; 

200...220 - блок выдачи результата, если ваше число меньше «задуманного»; 

300...320 - блок выдачи результата, если ваше число превышает «задуманное»; 

400...440 - блок выдачи результата, если вы угадали число; 

450...480 - проверка условия: желаете вы начать игру снова или хотите се 
закончить; 

600...640 - подпрограмма очистки части экрана, занятой ответами. 


Модульное построение программы 


Нетрудно убедиться, что при разработке сложных сюжетов игр и 
соответствующих программ их блок-схемы также усложняются. Если такая схема 
будет содержать слишком много блоков и ветвей, то ее проверка окажется 
затруднительной: невозможно будет выяснить, все ли блоки учтены. Поэтому при 
составлении сложных программ чаще всего используют модульный принцип их 
построения (см. [7]). 

Модулем называется самостоятельная часть программы, обеспечивающая 
решение какой-нибудь определенной части задачи. Например, в программе могут 
существовать модули ввода данных, печати результата, очистки экрана (как в 
предыдущей программе}, модуль заставки, отдельных картин игрового 
пространства и т. д. Программа, разделяемая на модули при разработке блок-схемы 
и на следующих стадиях проектирования, имеет модульную структуру (рис. 4.4). 
Про такую программу можно сказать, что она строится по принципу «сверху вниз», 
потому что ее создание начинается с разработки укрупненного модуля 
(определяющего главную задачу} и далее «вниз», к модулям, которые входят в 
укрупненный как составные части. Модульное проектирование позволяет 
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УГАДЫВАНИЕ ЧИСЛА 


Ввод Задание 


числа числа Заставка 
игроком компьютером 


Рис. 4.4. Модульная структура программы 

разделить сложную программу на фрагменты, для каждого из которых проще 
разрабатывать свою блок-схему, а затем соответствующую этой блок-схеме 
подпрограмму. 

Для того, чтобы почувствовать эффективность такого подхода, рассмотрим 
развлекательную программу ЖИЗНЬ. 

На экране вами создается некоторая первичная колония существ, 
располагающихся на поле из клеточек (рис. 4.5). Существа могут как 
размножаться, так и умирать, подчиняясь при этом двум законам. Первый: если 
вокруг пустой клетки есть ровно три особи (считая по горизонтали, вертикали и 
диагоналям), то в этой клетке появляется новая особь. Она переходит в слелдующее 
поколение, когла в ближайших 


Рис. 4.5. Игровое пространство программы ЖИЗНЬ. 

клетках вокруг нее есть 2 или 3 другие особи. В противном случае она умирает: 
если рядом есть только один организм, то этого недостаточно для воспроизводства, 
а 4, 5 и более создают перенаселение. С помощью такой программы можно 
наблюдать развитие своеобразной «компьютерной жизни». Это развитие зависит 
от формы заданной вами исходной колонии (популяции) и количества особей в 
ней. 

Если взглянуть на текст программы, воплощающей эту идею, то может 
показаться, что она слишком велика и разобраться в ней почти невозможно. 
Однако программа состоит из семи модулей, которые реализованы в виде 
самостоятельных подпрограмм, что значительно упрощает понимание. 
Примечательно, что модули используются в основной программе 16 раз, в 
результате чего вся она становится вполне обозримой, существенно экономится 
память компьютера и место на магнитной ленте, куда эта программа записывается. 
Итак, перейдем к се рассмотрению. 

Программа 17. ЖИЗНЬ. 

10 60 508 2000 
20 60 508 1000 
30 60 58 3000 
40 ВЕЕР .07,0 
50 60 ИВ 1000 
60 ОТМ А$(30, 20) 
70 О1М В$(30,20) 
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870 ТЕ =3 ТНЕМ (ЕТ К=К+1: (ЕТ 8$(Х, У)="1" 


880 ТЕ 21 А\Ю /<4 А\О А$(Х,У)="1” ТНЕМ Е 
890 ГЕТ В$(Х,У)=” " 


900 МЕХТ Х 

910 МЕХТ У 

920 ЕОВ У=утп ТО утах 

930 РОВ Х=хт1п ТО хтах 

940 ТЕТ АФ(Х,У)=В$(Х, У) 

950 МЕХТ Х 

960 МЕХТ У 

970 60 ТО 610 

1000 ВЕМ ------ СЕ 5--------- 
1010 ВОЛОЕЯ 0: РАРЕВ 0: ТАК 6 
1020 РЕАЗН 0: ОМЕН 0: ВВТОНТ 0 
1030 (15$ 

1040 ВЕТУАМ 

2000 ВЕМ ------ (гарй1с$------- 
2010 РОВ 1=1 ТО 3: ВЕАО 5$ 
2020 ЕОВ №=0 ТО 7: ВЕЛО 9 

2030 РОКЕ ЦЗН 5$+М,5 

2040 МЕХТ №: МЕХТ Т 

2050 ВЕТИВМ 


2060 ВАТА "А",0, 28, 38, 79, 95, 127, 62,28 
2070 ВАТА "В", 0, 60, 126, 86, 126, 102, 60,0 
2080 ВАТА "С", 0,0, 252, 132, 132, 132, 132, 252 


: 60 ТО 900 
ЕТ К=К+1: [ЕТ В$(Х,У)="1": 60 ТО 900 


3000 ВЕМ ------ ЗСВЕЕК--------- 
3010 ТЕТ Х=1: ЕЕТ 0=1 
3020 РОН \=1 ТО 12 
3030 РАТМТ АТ У-1, Х; "ППААППППААЛПИПАААППППААПППАААЛЛИ”: ВЕМ 32 расе 
3040 60 508 3150 
3050 ТЕ Т№МКЕУ$<>"" ТНЕМ ВЕТИВМ 
3060 ВЕЕР .01,20: РАЦЗЕ 5 
3070 МЕХТ У 
3080 РОН \=11 ТО 6 $ТЕР -1 
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0 508 3150 
3100 ТЕ Т№МКЕУ$<>"" ТНЕМ ВЕТИВМ 
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4050 60 508 3150 
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5020 ЕОВ Т=1 ТО 5 

5030 (ЕТ ($=5$(Т ТОТ) 

5040 РАТМТ АТ УМ, Х№+1-1; ТМК С;1$; РАРЕВ 3;” " 
5050 ВЕЕР .01, 25 

5060 МЕХТ Т 

5070 РАТМТ АТ УМ, Х№+5; 

5080 ВЕТИВМ 

6000 ВЕМ --------- -1---------- 

6010 ТЕ хт1п>Х-1 АМВ хт1п>1 ТНЕМ [ЕТ хи1и=Х-1 
6020 ТЕ хмах<Х+1 АМВ хтах<30 ТНЕМ [ЕТ хмах=Х+1 
6030 ТЕ ут1п>\У-1 АМВ ут1п>1 ТНЕМ [ЕТ ут1и=У-1 
6040 ТЕ утах<У+1 АМБ утах<20 ТНЕМ 1ЕТ упмах=\+1 
6050 ВЕТИВМ 

7000 ВЕМ ----- епа ------ 

7010 ВОВБЕВ 1: РАРЕВ 1: (1$ 
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7030 ЕОВ п=9 ТО 11 

7040 РАТМТ АТ п, 8; РАРЕВ 4;7$; РАРЕВ 0; (” " АМО п>9) 
7050 МЕХТ п 

7060 РАТМТ АТ 12,9; РАРЕВ 0; 7$ 

7070 РЕТМТ АТ 10,13; РАРЕВ 8; ТАК 2; "Е М 0” 


7080 РОН №=-20 ТО -30 ЭТЕР -1 
7090 ВЕЕР .1, № 

7100 МЕХТ № 

7110 РАЦЗЕ 350 

7120 ВЕЕР .06, 15 

7130 ВЕТИВМ 

Опишем вначале все подпрограммы, каждая из которых соответствует 
определенному модулю. 

1000...1040 - подпрограмма, которую мы назовем СТ5$. Она устанавливает цвет 
бордюра, задает атрибуты экрана, очищает его и окрашивает соответствующим 
цветом; 

2000...2080 - подпрограмма СКАРНС5 формирует все объекты игры, их 
требуется всего три. Первый - шарик, использующийся в заставке. Ему 
соответствует клавиша А в графическом режиме. Второй - голубой квадратик, 
составляет основу фона, на котором развивается та или иная популяция. В 
графическом режиме ему соответствует клавиша С. Наконец, третий - рожица 
красного цвета, имитирующая особь. В графическом режиме ей соответствует 
клавиша В; 

3000...4080 - подпрограмма 5СКЕЕМ формирует заставку - слово ШЕЕ, 
перемещающееся по экрану и составленное из больших, переливающихся 
разными цветами букв; 

3150...3160 - подпрограмма печати слова ШВРЕ, которая расположена внутри 
подпрограммы ЭСКЕЕМ. Так как слово МЕРЕ появляется на экране многократно, а 
его печать осуществляется в графическом режиме (см. буквы «А» в строке 3150), то 
вполне естественно, что эта операция выделена в отдельную подпрограмму; 

5000...5080 - подпрограмма «печатающий квадрат». Она выводит на экран 
различные надписи в заставке после того, как слово ШЕЕ займет свое конечное 
положение посредине экрана; 

6000...6050 - подпрограмма МИМ/МАХ в процессе счета постоянно уточняет 
границы вновь возникшей колонии. Эта процедура позволяет существенно 
ускорить работу алгоритма; 
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7000...7130 - подпрограмма ЕМО. Осуществляет печать слова ЕМО в рамке, 
вокруг которой расположена тень, и включает звуковое сопровождение. 

Группы операторов, записанные в строках 200...310, 400...520 и 4000...4020, не 
выделены в подпрограммы потому, что используются только один раз. 

Рассмотрим теперь программу в целом и более подробно. 

10 - вызов подпрограммы СКАРН!С$. Заранее формируются все образы 
игрового пространства, которые затем по мере надобности будут извлекаться из 
памяти компьютера; 

20 - вызов подпрограммы СТ5; 

30 - вывод на экран заставки, которая останется на экране до тех пор, пока не 
будет нажата какая-нибудь клавиша; 

50 - очистка экрана; 

60, 70 - резервирование памяти под двухмерные символьные массивы. В 
дальнейшем элементы массивов будут принимать значения «пробел» и «1», причем 
«пробел» будет означать, что особь в клеточке отсутствует, а «1» - что она здесь 
имеется. В массиве А$(30,20) будет размещаться исходная популяция, ав В$(30,20) - 
следующая; 

80 - задание номера шага; 

90...150 - здесь полагается либо выбрать заданную конфигурацию колонии, либо 
задать ее самому. Строки 140 и 150 необходимы для мерцания на экране символа $ 
в конце текста, который выводит на экран 90-я строка программы; 

210...270 - в массив А$(30,20) записывается стандартная популяция, которая на 
экране выглядит, как перевернутая буква «Г»; 

280, 290 - установка границ всей колонии; 

300 - запись в переменную К количества особей; 

310 - после выбора стандартной конфигурации осуществляется переход к 
алгоритму развития популяции; 

400...520 - ввод вашего варианта конфигурации колонии посредством задания 
общего числа особей и ввода их координат. В строке 480 проводится проверка 
значения координат, которые не должны выходить за пределы игрового поля. Если 
хотя бы одна из координат не соответствует заданным условиям, ее ввод требуется 
повторить; 

600 - очистка экрана; 

610, 620 - запоминание промежуточных значений границ популяции, так как в 
процессе развития они меняются; 

660...720 - здесь выводится на экран популяция из массива А$(30,20), причем 
букве С в графическом режиме соответствует голубая клеточка, букве В - особь; 

730 - если число особей стало равным нулю (популяция погибла), включается 
подпрограмма ЕМО, после чего осуществляется переход на начало игры; 

740...910 - формирование новой популяции в массиве В$(30,20) из старой 
А$(30,20); 

920...960 - массиву А$(30,20) присваивается значение массива В$(30,20), так как 
на печать выводится только массив А$(30,20) (см. строки 680, 690); 

970 - безусловный переход на строку 610, с которой начинается новый цикл 
размножения особей; 

Начиная со строки 1000, следуют семь подпрограмм, о которых мы говорили 
выше. Поскольку их длины невелики, а с некоторыми текстами мы познакомились 
ранее, то нет особой необходимости разбирать каждую строку в отдельности. Тем 
не менее, рекомендуем самостоятельно изучить подпрограмму 3000...4080. 
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Составление программы меню 


Хорошая игровая программа всегда начинается с заставки. Познакомившись с 
модульным принципом построения программ, попробуем сделать заставку, 
состоящую из нескольких кадров-модулей. Поскольку во второй главе мы коротко 
рассмотрели принципы построения таких заставок, то здесь сосредоточим 
внимание на их основном элементе, который носит название меню. 

Меню является связующим звеном между отдельными частями программы, 
чем-то вроде диспетчерского пункта: отсюда начинается игра, сюда же мы 
попадаем после ее окончания, а в некоторых играх - и в промежуточных ситуациях. 

Что же делает меню? Вот типичный набор его пунктов: 

НАЧАЛО ИГРЫ 

ВЫБОР ВИДА УПРАВЛЕНИЯ 
ПРАВИЛА ИГРЫ 

ВЫВОД ТАБЛИЦЫ РЕЗУЛЬТАТОВ 
ВЫБОР УРОВНЯ ИГРЫ 

Что означает каждая из этих строк, думается, нет необходимости пояснять: они 
встречаются почти в каждой компьютерной игре. Как конкретно осуществляется 
выбор той или иной строки меню, мы рассмотрим на двух примерах. 

Пусть первое меню выглядит так, как показано на рис. 4.6. Его работа может 
быть организована следующей программой: 


Рис. 4.6. Меню с подвижным курсором. 
Программа 18. МЕНЮ 1. 


10 ВОВОЕН 0: РАРЕВ 0: ТАК 1 

20 (15 

22 РОТ 55,24: ОВАМ 0, 120 

24 ОВАМ 153,0: ОВАМ 0, -120 

26 ОВАМ -153,0 

28 ТМК 6 

30 РАТАМТ АТ 2, 13; "МЕМИ” 

40 ОТМ а$(6, 19) 

50 (ЕТ а$(1)="ППИПЗТАВТППСАМЕПП” 
60 (ЕТ а$(2)="ПППИПСОМТАОЕ$ПППП” 
70 (ЕТ а$(3)="ПАППТМ$ТВОСТТОМПИ” 
80 ГЕТ а$(4)="ПППИРВЕТМТ ЭСОВЕПП” 
90 ГЕТ а$(5)="ПППАППИЕЕМЕТЕПППАП” 
100 ТЕТ а$(6)="ПППООТТПИРНОСВАМ ^ 
105 ТМК 5 

110 РОН М=1 Т0 6 

120 РВТМТ АТ №2+4, 7; а$ (№) 

130 МЕХТ № 

140 ТМК 4 

150: РЕЦ АТ 20, 9: `0Р698 6, ГОГ 0" 
160 ТЕТ №=1 

170 РАТМТ АТ №+2+4,7; РАРЕВ 1; ТМК 5; а$ (№) 
172 ВЕЕР .07,20: РАЦЗЕ 30 
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175 ЕЕТ №0=№ 

180 ГЕТ 6$=ТМКЕУ$ 

190 ТЕ 6$="6” ТНЕМ ЕЕТ №=№+1: 60 ТО 220 

200 ТЕ 0$="7” ТНЕМ ТЕТ №=№-1: 60 ТО 220 

210 ТЕ 0$="0” ТНЕМ 60 ТО 300 

215 60 ТО 180 

220 ТЕ №>6 ТНЕМ ТЕТ №=1 

230 ТЕ №<1 ТНЕМ 1ЕТ №=6 

240 РАТМТ АТ №0*2+4,7; РАРЕН 0; ТАК 5; а$ (№0) 
250 60 ТО 170 


300 ВЕМ ТЕ №=.. ТНЕМ С0ТО.. 

Поясним действия входящих в программу строк. 

10 - установка атрибутов экрана; 

22...26 - формирование рамки синего цвета, в которой должны быть помешены 
пункты меню; 

30 - вывод над рамкой слова МЕМИ; 

40 - задание массива строковых переменных; 

50...100 - присваивание элементам массива текстовых значений - пунктов меню; 

110...130 - вывод пунктов меню в рамке через пустую строку; 

150 - информация о клавишах управления для выбора нужной строки, 
помещаемая под рамкой; 

160 - основная переменная, указывающая номер надписи, на которую 
устанавливается создаваемый нами курсор; 

170 - формирование курсора, представляющего собой горизонтальную полоску 
синего цвета, наложенную поверх текста надписи; 

175 - здесь запоминается «старый» номер строки, когда положение курсора 
изменяется на один шаг; 

180...210 - управление курсором вверх/вниз. Если нажать клавишу О, то из 
меню мы перейдем непосредственно к тому разделу программы, который выбран 
курсором; 

220...230 - анализ номера строки с тем, чтобы он не вышел за пределы 1...б; 

240 - когда курсор переходит на другую строку, на экран выводится старая 
надпись, но уже без курсора; 

250 - передача управления группе строк, организующих переход курсора на 
другой пункт меню. 

Еще одна программа меню, которую мы сейчас рассмотрим, отличается от 
предыдущей способом представления информации на экране и, соответственно, 
другим программным решением. Она выводит на экран следующие надписи: 

НАЧАЛО ИГРЫ 

ИНСТРУКЦИИ 

ПЕЧАТЬ ТАБЛИЦЫ РЕЗУЛЬТАТОВ 

КЛАВИАТУРА 

ДЖОИСТИК 

УРОВЕНЬ ИГРЫ 

ОБ АВТОРЕ 
КОНЕЦ ПРОГРАММЫ 

Особенность этого меню состоит в том, что эти надписи как бы нанесены на 
широкое бумажное кольцо, которое может «вращаться» вокруг своей оси, 
показывая в окне три любых строки из приведенного списка, расположенных 
подряд (рис. 4.7). 
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Рис. 4.7. Меню с подвижным текстом. 

Процесс вращения управляется клавишами 6 (вниз) и 7 (вверх). Когда выбор 
пункта меню сделан, нажимается клавиша 0, и управление передается в один из 
блоков основной программы. 

Программа 19. МЕНЮ 2. 
ВОВОЕН 0: РАРЕН 0: ТМК 6 
(15 
60 508 3000 
ТМ А$(8, 19) 
45 ОТМ В$(3, 19) 

ЕТ ="ППППОТАВТПИСАМЕ” 

Т А$(2)="ППППТАУТВУСТТОМ" 

Т А$(3)="ПАППРАТМТ 5СОВЕ" 

Т АЗ (4)="ПППППКЕУВОАВО” 

Т АЗ (5)="ПППППУОУ5ТТСК” 

Т АЗ (6)="ПППИПППЕЕУЕЕ” 

Т АЗ (7)="ПППППАВОЦТПАМЕ” 

Т А$(8)="ПППООТТППРАОСВАМ” 

ГЕТ №=1 

РАТМТ АТ 12,4; ТАК 2; "АППЛППППЛАПППППОЛААПЛОВ” 

ТАК 1 

94 РОТ 46,54: ОВАМ 154,0 
О 
О 


со 
сл 
Г 
>59 ГИ ГИ Г ГЕ ГГ РТ ГЕ Г т 


ВАМ 0.43: ОВАИ -154.0 


о 

5 (5/1; 
"6...00мМ, 7...Р, 0... 
0, 175: ОВАМ 248,0: ОВАМ 0, -175: ОВАМ -248,0 


го 
> 
> 
кг 
1 > 
сл 


т ГЕ ПЕ ТЕ ТЕ МТ <> М1 


=№-1 ТО №+1 
=№ 

№1 ТНЕМ ТЕТ №=8 
№8 ТНЕМ ТЕТ ММ=1 
Т №1=№1+1 

$(М1)=АЗ (М) 


1 > 
| 


| 
сэ 


215 60 508 450 

220 РАТМТ АТ 10,6;В$(1) 

230 РАТМТ АТ 12,6; ТМК 4;8$(2) 

240 РАТМТ АТ 14,6; В$(3) 

250 ЕЕТ С$=Т№КЕУ$ 

260 ТЕ ($="6” ТНЕМ 60 508 300: 60 ТО 150 
270 ТЕ ($="7" ТНЕМ 60 $08 350: 60 ТО 150 
280 ТЕ ($="0” ТНЕМ 60 ТО 600 
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290 60 ТО 250 

300 ВЕМ ------------- 
305 ЕЕТ №=№-1 

310 ТЕ №<1 ТНЕМ ЕЕТ №=8 
320 60 508 400 
330 РАТМТ АТ 11,6;8$(1) 
334 РАТМТ АТ 13,6; 8$(2) 
340 60 50В 500: ВЕТУН 


355 ЕЕТ №=№+1 
360 ТЕ №>8 ТНЕМ ЕЕТ №=1 
365 60 508 400 

370 РАТМТ АТ 11,6; В$(2) 
380 РАТМТ АТ 13,6; В$(3) 
385 60 508 500 


ТАТ АГ 10, 6; "ППППППППППППППАЛОЛИ” 
420 РВТМТ АТ 12, 6; "ПАПАПАПААПАПАППППИИ” 
АТ 14,6; "ПППППППППАПАЛАЛАААИ” 


Т АГ 11, 6; "ПППААААААПАПАППАПИИ” 
; "ППППППППППППАПАЛОЛИ” 


+ = 
1 
1 
1 


| 
С 
25 


| >> 
= 
И 
№: 
— 
(<) 
—_ 
> 
= 
а 
>< 
ее: 
= 


г мт <> Г пт 22 > п 
Ч 
| 
=> 
| 
го 
с -ь 
© © 


(Фр) 
рт 
> 
2. 
Ф.Ф) 


| 
к 
Т 


620 В 
2999 ТОР 
3000 ВЕМ ---- 0.0.0. ----- 

3010 РОВ №=0 ТО 15 

3020 НЕАВ 5 

3030 РОКЕ И5А “А"+М, $ 

3040 МЕХТ № 

3050 ВЕТУВМ 

3060 БАТА 0, 16, 24, 252, 254, 252, 24, 16 

3070 ОАТА 0, 16, 48, 126, 254, 126, 48, 16 

Чтобы сделать программу удобной для анализа, в ней выделены шесть 
подпрограмм-модулей: 

300...340 - подпрограмма сдвига всех надписей вниз; 

350...390 - подпрограмма сдвига всех надписей вверх; 

400...440 - подпрограмма, удаляющая три надписи в окне; 

450...470 - подпрограмма, удаляющая две надписи в окне, которые занимают 
промежуточное положение по отношению к предыдущим трем надписям и служат 
для создания на экране эффекта перемещения строк сверху вниз и наоборот; 

500...520 - подпрограмма паузы. Необходима для создания эффекта движения 
надписей вверх или вниз при нажатии нужных клавиш; 

3000...3070 - запись в память компьютера изображений стрелок, которые 
должны располагаться за пределами окна и указывать на надпись, подобно 
курсору. Таким образом, в этой программе, в отличие от предыдущей, курсор 
неподвижен, а все надписи могут передвигаться вверх и вниз. 

А теперь коротко об остальных строках программы. 

10, 20 - установка атрибутов экрана; 

30 - обращение к подпрограмме 3000...3070, которая создает две направленные 


Е №=.. ТНЕМ С0Т0... 
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навстречу друг другу стрелки, выполняющие роль неподвижного курсора, 
расположенного посередине окна; 

40 - резервирование памяти для 8 строк меню; 

45 - резервирование памяти для 3 строк меню, выводимых на экран; 

50...85 - запись 8 пунктов меню в массив А$; 

92 - вывод на экран стрелок курсора; 

93...96 - вывод рамки, куда выводятся три слова из меню; 

97...120 - вывод на экран слова МЕНЮ, причем здесь используются символы 
псевдографики, которые набираются в режиме курсора [С| нажатием цифровых 
клавиш отдельно или совместно с Сарз ЗЫИ. В тексте программ мы будем 
обозначать такие символы подчеркиванием, например, 3 или (05/1, причем при 
отсутствии пробелов между ними будем ставить точку с запятой (;); 

122 - вывод информации о клавишах управления; 

124 - вывод внешней рамки меню; 

150...210 - операторы этих строк записывают в массив В$ подряд три строки 
меню, выбирая их из массива А$; 

220...240 - вывод на экран массива В$; 

250...290 - анализ нажатой клавиши управления и выполнение действий в 
соответствии с этой клавитей; 

300...3000 - подпрограммы, действие которых описано выше, а построчный 
разбор предлагается сделать читателю. 


Звуковое сопровождение игр 


Говоря о создании игровых программ, невозможно пройти мимо скромного 
оператора ВЕЕР, с помощью которого можно извлекать различные звуки, 
перекладывать на компьютерный язык известные мелодии и лаже фрагменты 
классических произведений. Наверное, нет необходимости убеждать вас в том, 
насколько интереснее и богаче становится компьютерная игра, если в нес удачно 
вставлены различные музыкальные фразы и даже простые звуки, 
сопровождающие нажатия клавиш. 

Мы уже использовали оператор ВЕЕР для получения различных звуковых 
эффектов вроде щелчков, потрескиваний и простых звуковых сигналов. Сейчас же 
покажем, как с его помощью получаются более сложные звуки и мелодии. Для 
этого чаще всего оператор ВЕЕР включается в какой-либо цикл, где один из его 
параметров изменяется, например: 

Программа 20. ЗВУК 1. 
10 ВОНОЕН 0: РАРЕН 0: ТАК 6 
20 (1$ 
30 ЕОВ М=1 ТО 40 ЭТЕР 2 
40 ВЕЕР 0.002, № 
50 МЕХТ М 

Ниже приведен листинг еще одной программы, создающей интересный 
звуковой эффект. 

Программа 21. ЗВУК 2. 
10 ВОНОЕЯ 0: РАРЕН 0: ТАК 6 
20 (1$ 
30 РОВ М=1 ТО 2 
40 РОВ №=30 ТО 1 5ТЕР -5 
50 ВЕЕР 0.07, № 
60 РАЦЗЕ 1 
70 МЕХТ М. 
80 РОВ №=1 ТО 30 $ТЕР 5 
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90 ВЕЕР 0.07, № 
100 РАЦЗЕ 1 
110 МЕХТ № 
120 МЕХТ М 
Другой возможный вариант - использование в одном цикле нескольких 
операторов ВЕЕР, «настроенных» на разные длительности и высоты: 
Программа 22. ЗВУК 3. 
ВОАВЕН 0: РАРЕН 0: ТАК 6 


РОВ №=0 ТО 20 
РАЦЗЕ 3 
45 ВЕЕР 0.007. №+7 
50 ВЕЕР 0.003, № 
60 МЕХТ № 
Входящий в цикл оператор РАЧЗЕ регулирует длительность паузы между 
отдельными звуками, но, вообще говоря, его можно исключить, и тогда переход от 
звука к звуку будет плавным. 
Теперь приведем программу простейшего синтезатора, воспроизводящего 
короткую музыкальную фразу: 


Программа 23. МЕЛОДИЯ. 
10 ВОНОЕН 0: РАРЕН 0: ТАК 6 


20 (15 

30 ГЕТ ТЕМР=0. 05 

40 РОН М=1 ТО 9 

50 НЕАВ ПЕ, ТОМ 

60 ВЕЕР П1*ТЕМР, ТОМ 

70 МЕХТ № 

80 5ТОР 

100 ПАТА 4,9,4,9,4,9,4,9 
110 ПАТА 8,7,4,5,4,5 

120 ВАТА 8,4, 8,2 


Здесь первый,оператор КЕАР ОГ считывает из списка данных РАТА числа, 
стоящие на нечетных позициях и характеризующие длительности звуков, а второй 
оператор КЕАР ТОМ - числа, стоящие на четных местах и соответствующие 
высотам тона. Таким образом, при формировании списка РАТА все числа 
необходимо группировать парами. Если эту программу запустить то можно 
заметить, что мелодия очень напоминает песню «Во поле береза стояла». Чтобы с 
помощью этой программы воспроизвести другую мелодию, достаточно изменить 
данные в строках РАТА и, если потребуется, верхний предел переменной М в 
строке 40. 


Музыкальный редактор И/йат 


Итак, вы знаете, как извлекать из компьютера разные звуки, и даже сможете 
при желании написать программу, воспроизводящую простенькую мелодию. 
Однако на Бейсике далеко не уедешь, поэтому полезно знать, что существуют 
специальные программы, предназначенные для создания компьютерной музыки, 
называемые музыкальными редакторами. Наиболее известным из такого рода 
программ для ХХ оресмиашт является, пожалуй, редактор \’ашт, позволяющий 
писать двухголосные мелодии в диапазоне четырех октав, сдобренные различными 
шумовыми эффектами. Созданную или отредактированную мелодию можно 
сохранить на магнитной ленте или дискете в виде блока кодов и использовать затем 
в собственной игровой программе. 

Сочинение новой мелодии 

После загрузки \Уашщ с ленты или дискеты на экране появится главное меню. 
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Новая мелодия записывается в режиме редактирования, войти в который можно, 
нажав клавишу 6. При этом на экране появится изображение клавиатуры 
фортепиано, двух нотных станов (десять нотных линеек), указатели октавы 
ОСТАУЕ и редактируемого голоса (рабочего канала) СНАММЕГ 1(2), а также 
счетчики шагов для каждого из каналов СООМТЕВ$ (СНМ1, СНМ\?2). 

Для выбора функций используются два верхних ряда клавиш, а ввод и 
изменение мелодии осуществляются клавишами двух нижних рядов. Если вы 
всерьез хотите заняться сочинением компьютерных мелодий вам придется 
досконально изучить функции всех клавиш (см. Приложение 4 или [1]). Краткую 
же сводку команд можно получить в режиме НЕГР РАСЕ, если нажать клавищу 7 в 
главном меню. 

Давайте воспользуемся самым простым способом создания мелодии. Прежде 
всего следует найти какие-нибудь ноты. На первый раз сгодится все что угодно: 
учебник для первого класса музыкальной школы, альбом детских или народных 
песен - чем проще, тем лучше. Получите минимальную информацию о нотах (от 
специалистов или из учебника музыки) - и садитесь за компьютер, чтобы воплотить 
в звуках свой первый музыкальный шедевр. 

Техника ввода целиком основана на сравнении, то есть сначала вы смотрите в 
книгу и запоминаете положение очередной ноты на линейках, а затем переносите 
ее на соответствующее место нотного стана на экране телевизора. Не забывайте 
при вводе нот переключать октавы клавишами 1...4 и внимательно следите за 
паузами. Если при вводе была допущена ошибка, нажмите клавишу 0, и все 
изображение возвратится назад на один шаг. После ввода десятка нот желательно 
послушать, что же получилось. Для этого прокрутите запись назад, нажав 9, а затем, 
удерживая клавищу Р, слушайте мелодию. 

Можно поступить и по-другому. Для возврата к началу мелодии нажмите 
клавишу К а затем, чтобы прослушать мелодию - нажмите и отпустите О. 
Остановить проигрывание можно нажатием любой клавиши. 

Здесь хотелось бы дать один совет. Вводить ноты первого и второго голоса 
желательно параллельно, попеременно переключая каналы клавишей Т, так как 
если вводить от начала до конца один, а затем другой голос, то ошибки просто 


неизбежны. 
© ® 


С$7х СУвВмМ |2 Х СУувВМм [4575 ХСУув м 5х Су вм 


ОСТАУЕ 1 ОСТАМЕ 2 ОСТАМЕ 3 ОСТАМЕ 4 
Рис. 4.8. Соответствие между нотами и клавишами компьютера. 
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Но ввести мелодию будет не так-то просто, если не установить, как связаны 
между собой ноты и клавиши вашего 5рессу. Сделать это поможет рис. 4.8. 
Внимательно рассмотрите его и попробуйте понажимать клавиши, сравнивая 
«выскакивающие» на экран ноты с теми, что находятся перед вами. 

Может оказаться, что в памяти компьютера уже есть какая-то мелодия, и она 
мешает вашим упражнениям, занимая нотные линейки. Чтобы от нее избавиться, 
нажмите клавишу 7 и на вопрос ЕКАЗЕ СОВВКЕМТ ТОМЕ (У/М)? отвечайте 
нажатием клавиши У. После этого на экране появится начальный участок чистых 
нотных линеек, приглашающий вас к вводу музыкального произведения. Клавишей 
Т установите 1-й голос (СНАММЕГ 1), а затем клавишами 1...4 - нужную октаву 
(ОСТА\УЕ), после чего можно вводить ноты. Пауза вводится клавишей Ещег, а на 
нотных линейках (внизу) она отображается буквой К. 

Выпишем для удобства значения всех клавиш в пределах одной октавы: 

С5-ДО Е-ФА+ 


А - ДО+ У - СОЛЬ 
и =РЕ @-СОЛЬ+ 
>. -РЕЗЕ В-ЛЯ 
х-ми Н-ЛЯ+ 
С-ФА М-СИ 


Итак, начинаем вводить мелодию, которую назовем просто МЕЛОДИЯ 1 (рис. 
4.9 и табл. 1): 


Таблица 1 

ГОЛОС 1 ГОЛОС 2 ГОЛОС 1 ГОЛОС 2 
ОСТ. С5 ОСТ.1 С5$ С$ ОСТ.1 С5 

С5 ЕМТ С$ ЕМТ 

С5 ЕМТ С$ ЕМТ 

С$ ЕМТ С$ ЕМТ 
х х < х 

р ЕМТ х ЕМТ 

х ЕМТ х ЕМТ 
С 2 С С 

ЕМТ ЕМТ ЕМТ ЕМТ 
ЕМТ ОСТ.2 Х ОСТ.2 Х ОСТ.З Х 
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ЕМТ ЕМТ С С 
ЕМТ С х х 
ЕМТ ЕМТ С С 
ЕМТ У х х 
ЕМТ У У У 
ЕМТ У У У 
ЕМТ ОСТ.2.©Ъ 


Здесь ОСТ. - октава, С5 - клавиша Сарз ЭЫШ, ЕМТ - клавиша Ещег.) Этот 
музыкальный фрагмент лучше всего использовать как вступление к какой-нибудь 
игре. 

На рис. 4.10 и в табл. 2 представлена хорошо знакомая всем мелодия «В траве 
сидел кузнечик». 


С ЕМТ ЕМТ ЕМТ 

ЕМТ С$ ЕМТ ЕМТ 
Чтобы послушать введенную мелодию, необходимо перейти в главное меню, 
нажав клавишу 6, а затем выбрать в нем пункт 3. Может оказаться, что теми ее 
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исполнения вас не устраивает. Тогда в главном меню выберите режим изменения 
темпа (ЕТ ТЕМРО) (клавиша 5) и с помощью клавиш 8 (ускорение) и 5 
(замедление) добейтесь требуемого темпа воспроизведения мелодии. Для контроля 
скорости исполнения в нижней части экрана высвечивается фиолетовый 
прямоугольник. Прослушивать только что введенную мелодию лучше всего в 
медленном темпе, чтобы на слух контролировать правильность звучания. 

Для придания создаваемой вами мелодии ритма можно использовать для ее 
аранжировки барабан и шумовые эффекты. Как это сделать описано в 
Приложении 4. 

Компиляция и запись мелодии 

Если мелодия понравилась, можно переходить к следующему этапу. Поскольку 
вы хотите «подшить» эту мелодию к программе, написанной на Бейсике, 
необходимо записать мелодию в виде подпрограммы, работающей независимо от 
редактора М/Пат. Такая подпрограмма создается с помощью специального режима 
компиляции \/НАМРПЕК. Однако перед компиляцией следует в обоих каналах 
выставить метки конца цикла, нажав клавишу М/. При этом компьютер запросит: 

ЗЕТ [00Р НЕВЕ (У/М) 
- установить метку здесь? Если нажать клавишу У, метки будут поставлены. 
Нажав клавишу 4 в главном меню, войдите в режим компиляции. На запрос; 
ТОМЕМАМЕ? 

введите имя, под которым вы хотите записать файл, например, МЕТ 2. Далее 
программа попросит ввести адрес, с которого будет располагаться и запускаться 
этот файл: 

АЗЗЕМВЕУ АБВВЕЗЗ? 

Укажите какой-нибудь десятичный адрес, (но не слишком маленький, чтобы 
поместилась бейсик-программа), например, 60000. После этого компилятор 
выведет на экран информацию об условиях компиляции, которые влияют на 
исполняемый файл (подробно - в Приложении 4). Нажав, например, клавищу 1, 
выполним компиляцию, по окончании которой на экран будет выведена длина 
исполняемого файла и сообщение о нормальном завершении операции. 

После ряда дополнительных сообщений, о которых подробно рассказано в 
Приложении 4, появится стандартная строка: 

ОТАВТ ТАРЕ, ТНЕМ РВЕЗЗ АМУ КЕУ 

Включайте магнитофон на запись и нажимайте любую клавищу. 

Осталось разобраться, как использовать «музыкальный блок» в игровой 
программе Прежде всего в программу-загрузчик следует вставить дополнительную 
строку с оператором ГОА, загружающую с ленты музыкальный кодовый блок: 

35 [ОАБ ""СОБЕ 60000 
А в саму игровую программу для исполнения мелодии нужно добавить строки: 
10 СТЕАВ 59999 
20 РОКЕ 60035, 230 
30 РОКЕ 60026, 0 
230 ВАМООМТЗЕ 158 60000 

10 - обнуляются все переменные и массивы, выполняется оператор СТ, 
изменяется адрес КАМТОР; 

20 - в ячейку памяти с адресом 60035 записывается число в пределах от 230 до 
255, что позволяет изменять темп проигрывания мелодии; 

30 - в ячейку памяти с адресом 60026 записывается число в пределах от 0 до 7, 
которое во время исполнения мелодии устанавливает цвет бордюра; 

230 - воспроизведение мелодии. Эту строку можно поставить в любом месте 
игровой программы, в зависимости от ее сюжета. 

Если вы не до конца поняли, как вставить созданную и откомпилированную 
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мелодию в игровую программу, посмотрите, как это сделано в игре СОКОБАН, 
описанной в следующей главе. 
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После того, как мы научились создавать спрайты самыми разными способами, 
настало время решить еще одну очень важную задачу - подчинить их своей воле и 
заставить двигаться по экрану. Вы уже хорошо знаете, что управлять движением 
объектов можно с помощью клавиатуры (КеуБоага) или используя различные типы 
джойстиков (Кетрзюоп, эш<а1г, Сагзот). Какой из этих способов выбрать, зависит в 
основном от сюжета игры и ваших пристрастий. При желании можно пользоваться 
тем и другим одновременно. 

Познакомимся теперь со всеми перечисленными методами управления 
спрайтами и их особенностями с точки зрения программирования. 


Управление спрайтами с помощью клавиатуры 


Рассмотрим программу формирующую изображения вертолета и 
позволяющую это изображение перемещать по экрану (см. рис. 3.3). 
Программа 24. ВЕРТОЛЕТ. 


10 ВОВОЕН 1: РАРЕВ 1: ТАК 6 

20 (15 

30 РОВ №=0 ТО 71 

40 ВЕАБ 5 

50 РОКЕ 0ЗН “А”+М, 5 

60 МЕХТ № 

70 ВАТА 0,0.135, 0, 120, 127, 15, 39 
80 ВАТА 0,0, 255,2, 127, 201, 201, 255 
90 ВАТА 0,0, 255, 0, 192, 112, 24, 12 


100 ВАТА 3,1,0,0,0,0,0, 
ВАТА 255, 255, 127, 63,4, 255,0,0 


(<=>) 


0 
120 ВАТА 254, 254, 252, 248, 34, 252,0,0 
130 ВАТА 0,0, 32,0, 120, 127, 15, 135 
140 ВАТА 0,0, 7,2, 127, 201, 201, 255 
150 ВАТА 0,0,0,0, 192, 112, 24, 12 
200 ВЕМ 
210 (ЕТ Х=10: ЕЕТ \=10: (ЕТ Х1=Х: ЕЕТ \1=У 
220 ЕТ = 
230 ТЕ Т№МКЕУ$="0” ТНЕМ (ЕТ Х=Х-1: 60 ТО 300 
235 ТЕ ТМКЕУ$="с” ТНЕМ (ЕТ Х=Х-1: 60 ТО 300 
240 ТЕ Т№МКЕУ$="Р” ТНЕМ (ЕТ Х=Х+1: 60 ТО 300 
245 ТЕ Т№МКЕУ$="р” ТНЕМ ГЕТ Х=Х+1: 60 ТО 300 
250 ТЕ Т№МКЕУ$="0” ТНЕМ [ЕТ \У=\У-1: 60 ТО 300 
255 ТЕ ТМКЕ\У$=" 4” ТНЕМ ЁЕТ У=У-1: 60 ТО 300 
260 ТЕ ТМКЕУ$="А” ТНЕМ [ЕТ \У=У+1: 60 ТО 300 
265 ТЕ Т№МКЕУ$="а” ТНЕМ [ЕТ \У=\+1: 60 ТО 300 
270 60 ТО 320 


300 РАТМТ АТ УТ, Х1; “ППП” 
310 РАТМТ АТ У1+1, Х1; “ППП” 
320 ТЕ \<3 ТНЕМ РЕТМТ АТ \,Х; "АВС"; АТ У+1.Х; "ВЕЕ":60 ТО 340 
330 РВТМТ АТ \, Х; "НТ": АТ \+1,Х; "БЕЕ" 
340 ГЕТ М=И+1: ТЕ \=5 ТНЕМ ЕТ М=0 
350 [ЕТ Х1=Х: (ЕТ \1=\ 
360 ВЕЕР .002,0 
370 @0 ТО 230 
10... 150 - работа этой части программы должна быть вам понятна, поэтому мы 
лишь отметим, что здесь используются два спрайта с изображением вертолета. 


Несколько спрайтов для одного и того же объекта рисуются всякий раз, когда 
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нужно создать эффект движения - как в мультфильмах. В нашем случае у вертолета 
должен вращаться винт, поэтому спрайты отличаются именно его положением. 
Каждая картинка состоит из шести полей. Для первой использованы графические 
символы, соответствующие клавишам А, В, С, О, ЕиЕЁ, а для другой - С, Н, ГО, ЕиёЕ. 
Нижняя часть вертолета одинакова в обоих спрайтах, поэтому три последних 
символа повторяются. Всего использовано 9 символов, следовательно, количество 
вводимых в программу кодов должно быть равно 9х8 = 72; 

210 - задание начальных координат вертолета. Координаты Х и У будем 
называть новыми, а Х|! и У1 - старыми. До начала движения новые и старые 
координаты совпадают; 

220 - инициализация переменной \/\, которая в дальнейшем будет указывать 
компьютеру, какой из двух спрайтов вертолета выводить на экран. 

Управляют положением вертолета на экране две части программы. Первая 
(строки 230...265) анализирует, какая клавиша нажата, а вторая (строки 300...350) 
строит изображение вертолета в новом месте экрана; 230...260 - в предыдущих 
главах мы уже упоминали функцию ПМКЕУ$, которая возвращает символ, 
соответствующий клавише, нажатой в момент ее выполнения. Для перемещения 
вертолета задействуем клавиши: О - влево, Р - вправо, О - вверх и А вниз. Но, как 
вы знаете, с клавиатуры можно вводить и прописные, и строчные буквы. Все 
зависит от того, какой режим установлен клавишей Сарз Госк. Поэтому в блоке 
опроса клавиатуры нужно предусмотреть все возможности и проверять как 
большие, так и маленькие буквы. Предположим, что нажата клавиша ©, тогда в 
строке 230 условие "О" = "О" не выполняется. Также не выполняется и условие 
"О" = "о". В результате программа переходит к строке 240. Но и здесь условия "О" 
= "Р" и "О" = "р" не выполняются, поэтому проверка продолжается. Так 
программа доходит до строки 250, где условие "О" = "О" истинно. В этом случае 
начинают выполняться операторы, стоящие после ТНЕМ данной строки, то есть из 
значения координаты У вычитается единица (на экране вертолет должен подняться 
вверх) и программа переходит к строке 300. Возникает вопрос: что будет, если 
нажать какую-либо клавишу, отличную от перечисленных? Ответ можно найти в 
строке, следующей за блоком опроса клавиатуры; 

270 - после блока условий в большинстве случаев ставится строка с 
безусловным переходом, которая после каждого «неправильного» нажатия 
возвращает управление на начало блока. Это продолжается до тех пор, пока не 
будет нажата одна из разрешенных клавиш. Другой вариант (именно так мы 
поступили в нашей программе) передать управление в ту часть программы, которая 
выводит на экран изображение вертолета в соответствии с текущими 
координатами, то есть на строку 320; 

300, 310 - но вот нажата одна из нужных букв, то есть вертолету предписано 
куда-то передвинуться, и операторы строк 300 и 310 стирают изображение на 
старом месте (координаты Х1 и У1); 

320, 330 - эти строки выводят на экран изображение в место, заданное новыми 
координатами. Причем в зависимости от значения переменной \/ на экран 
помещается тот или иной спрайт, что создает впечатление вращения винта; 

340 - переменная \М/ увеличивается на единицу, и если она становится равна 5, 
то обнуляется. Таким образом, если \/\/ равна О, 1 или 2, то вертолет изображается 
одним спрайтом, а при М, равной 3, 4 или 5 - другим. Спрайты сменяются через три 
цикла для того, чтобы вращение винта было не чересчур быстрым; 

350 - новые координаты запоминаются и становятся для очередного цикла 
движений старыми; 
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360 -- звуковой сигнал, имитирующий стрекотание вертолета; 

370 - безусловный переход к блоку проверки нажатия клавиш для следующего 
изменения положения вертолета. 

Конечно же, эта программа далеко не идеальна. В ней лишь показан принцип 
управления спрайтами с помощью клавиатуры. Надеемся, что этот принцип вам 
достаточно понятен. Теперь попробуем слегка улучшить блок опроса клавиатуры и 
привести его к тому виду, в котором его можно будет использовать в реальных 
программах. 

Забегая вперед, расскажем об одной замечательной возможности, 
позволяющей заметно уменьшить блок опроса клавиатуры и, соответственно, 
увеличить скорость его работы. Проверять строчные и прописные буквы нужно 
только в том случае, если неизвестно заранее, какой режим клавиатуры установлен 
до запуска программы, или если он мог измениться во время работы (например, в 
операторе ПМРОТ). Однако режим ввода символов можно изменить не только с 
клавиатуры, но и из программы. Не вдаваясь пока в подробности, скажем только, 
что установить режим курсора [С] (заглавные буквы) можно, включив в программу 
оператор 

РОКЕ 23658, 8 
вернуться к курсору [1] позволит оператор 
РОКЕ 23658, 0 
Вставьте в программу ВЕРТОЛЕТ строку 
225 РОКЕ 23658, 8 
и тогда строки 235, 245, 255 и 265 можно смело убрать. 


Управление спрайтами с помощью джойстика 


Объектами игры часто удобнее управлять не с клавиатуры, а с помощью 
джойстика, поэтому посмотрим, как это можно сделать. Если для опроса 
клавиатуры мы пользовались функцией ПМКЕУ$, то узнать, в какую сторону 
повернута ручка Кетр${юоп-джойстика можно только с помощью функции П\. Эта 
функция возвращает числовое значение из порта, адрес которого записан в 
качестве ее аргумента. Возможно, вы еще не знаете, что собой представляют порты 
в компьютере, поэтому попробуем объяснить, что это такое. 

В нашем мире порты существуют для сообщения с другими государствами, а для 
островных империй (вроде компьютера) это единственное средство связи с 
внешним миром. Но у маленького 5рессу портов гораздо больше, чем у самой 
великой державы - целых 65536. Правда, практическое применение имеют далеко 
не все из них, а остальные простаивают без дела. Любой ввод и вывод информации 
(кроме вывода на рабочий экран) происходит именно через порты. С ними связаны 
и клавиатура, и джойстик, и магнитофон, и принтер, и динамик, причем каждому 
устройству соответствует порт с определенным адресом (не путайте с адресами 
ячеек памяти). Интересующий нас в данный момент джойстик типа, Кетруоп 
подключен к порту с адресом 31. Таким образом, узнать направление поворота 
ручки джойстика можно с помощью оператора 

ГЕТ )оу=ТА 31 

Зная коды, соответствующие различным направлениям наклона джойстика, 
нетрудно написать и блок управления. 

Казалось бы, все очень просто, однако есть одно «но»: компьютеры, 
изготовленные в России, практически все «страдают» неполной совместимостью с 
фирменным 5рессу. В частности, значения, считываемые из порта 31, различны для 
разных моделей ИХ 5ресйат. На рис. 5.1 приведены два наиболее 
распространенных варианта кодов джойстика. Первый вариант (рис. 5.1, а, 0) 
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характерен тем, что в нейтральном положении ручки из порта 31 считывается ноль 
(это соответствует фирменному 5рессу). В другом варианте (рис. 5.1, в, Г) в 
нейтральном положении считывается число 224. 

10 9 26 24 25 


} 


6 5 22 20 21 
а) 5) 

234 232 233 м 248 249 

226—\ 224 ра ре 240 ^ ж241 

230 228 —„ 246 244 245 


в) г) 
Рис. 5.1. Диаграмма кодов джойстика: а, в - для отжатой клавиши Огонь; б, Г - 
для нажатой клавиши Огонь 
Если ваш компьютер откажется реагировать на коды направлений джойстика, 
показанных на рисунке - ничего страшного. В этом случае можно самостоятельно 
выяснить необходимые коды с помощью маленькой программки: 
10 РВТМТ АТ 0,0; Т№ 31; " " 
20 60 ТО 10 
Запустите ее оператором КОМ и, поворачивая ручку джойстика в разные 
стороны, выпишите числа, которые будут появляться на экране. 
Теперь давайте рассмотрим конкретный пример использования функции П\. 
Программу САМОЛЕТ уже вполне можно назвать мини-игрой, в которой имеется 
простейший пейзаж, состоящий из неба и земли, 


Рис. 5.2. Игровое пространство игры САМОЛЕТ. 
самолет противника, передвигающийся по экрану случайным образом, и объект 
управления - прицел вашего самолета (рис. 5.2). Если самолет противника попал в 
прицел и вы успели нажать кнопку Огонь то происходит взрыв, а самолет 
исчезает. Таков замысел этой игры. 


Программа 25. САМОЛЕТ. 
10 ВОНОЕЯ 0: РАРЕВ 1: ТАК 0: (15 


20 РОВ №=0 ТО 55 
30 ВЕАБ 5: РОКЕ ЗН “А"+М, $ 


40 МЕХТ № 

50 ВАТА 0,0,0,0,255,0,0,0 

55 ВАТА 0,0,0,0, 255, 255,6, 4 

60 БАТА 60, 126, 255, 255,255, 255, 126,60 
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65 БАТА 0,0,0,0, 255, 255, 96, 32 

70 ВАТА 0,0,0,0, 255,0,0,0 

75 БАТА 0,0, 0, 24, 24, 24,24, 24 

80 ВАТА 40, 21, 102, 153, 90, 165, 44, 16 

ОО ВЕМ ое 

110 ГЕТ Х$=11: ЕЕТ У5=10: ЕЕТ Х$1=Х$: ЁЕТ \$1=\%5 

120 РОВ №=15 ТО 21: РАТАТ АТ №,0; РАРЕВ 4; ТАВ 31;” ": МЕХТ № 
140 ВЕМ 

150 ТЕТ РАХ=2»АМО-1 

160 ТЕТ РВ\=2»АМО-1 

170 ЕЕТ БЕС=ТМТ (А№0+8+2) 

180 (ЕТ С1=0 

200 ВЕМ ---------- 

210 ЕЕТ С1Т=СТ+1 

220 ТЕ Х5<2 ТНЕМ ЁЕТ Х$=Х5+1: 60 ТО 150 

230 ТЕ Х$>25 ТНЕМ ЕЕТ Х$=Х$-1: 60 ТО 150 

240 ТЕ \У5>19 ТНЕМ ГЕТ У5=\У5-1: 60 ТО 150 

250 ТЕ \У5<3 ТНЕМ 1ЕТ \У5=\5+1: 60 ТО 150 

260 ТЕ С1>=0ЕС ТНЕМ 60 ТО 150 

270 ТЕТ Х5=Х$+РВХ: ЕЕТ ХЗМ=ТМТ Х$ 

280 ТЕТ \У5=\У5+РВУ: ЕЕТ УЗМ=ТМТ 5 

290 ТЕТ 0=ТМ 31 

300 ТЕ .0=226 ОВ 4/0=242 ТНЕМ ТЕТ Х$=Х5+1: 60 ТО 400 

310 ТЕ .0=225 ОВ 40=241 ТНЕМ ТЕТ Х$=Х5-1: 60 ТО 400 

320 ТЕ /0=232 ОВ 40=248 ТНЕМ ТЕТ \У5=\5-1: 60 ТО 400 

330 ТЕ .0=228 ОВ 4/0=244 ТНЕМ ТЕТ \У5=\5+1: 60 ТО 400 

340 ТЕ /0=240 ТНЕМ ЕЕТ ЕТВЕ=1: 60 ТО 400 

350 ТЕ /0=224 ТНЕМ ЕЕТ ЕТВЕ=О: 60 ТО 400 

360 ТЕ .0=234 ОВ 40=250 ТНЕМ ГЕТ Х$=Х5+1: ЕЕТ У5=\5-1:60 ТО 400 
370 ТЕ .0=233 ОВ 40=249 ТНЕМ ТЕТ ХЗ=Х5-1: ЕЕТ У5=\5-1:60 ТО 400 
380 ТЕ /0=229 ОВ 4/0=245 ТНЕМ ТЕТ Х$=Х5-1: ЕЕТ У5=\5+1:60 ТО 400 
390 ТЕ .0=230 ОВ 40=246 ТНЕМ ТЕТ Х5=Х$+1: ЕЕТ \У5=\5+1 

400 ВЕМ _____ > 

410 РВТАТ АТ У$1,Х$1; РАРЕН 8; "ПИППП"; АТ У$1-1,Х$1+2; ”_” 

420 РВТАТ АТ УЗМ, ХЗМ; РАРЕН 8; ТАК 0; "АВСОЕ"; АТ УЗМ-1, ХЗ№+2; ТАК 0; "Е" 
430 ТЕТ Х$1=ХЗМ№: ЁЕТ \$1=У5М№ 

440 ТАК 0 

450 РИОТ 120,91: ОВАМ 7,0 

460 РЕОТ 136,91: ОВАМ 8,0 

470 РОТ 132, 103: ОВАМ 0, -7 

480 РЕОТ 132, 79: ОВАМ 0, 8 

490 ТЕ ЕТВЕ=О ТНЕМ РАТМТ АТ 10,16; РАРЕВ 1;” ": 60 ТО 200 

500 РАТМТ АТ 10, 16; ТМК 2; РАРЕН 1; "б” 

510 ТЕ У5№=10 АМО Х5№=12 АМО ХЗ№<=16 ТНЕМ 60 508 1000: СЕ5: 60 ТО 100 
520 60 ТО 210 

1000 ВЕМ -- МИВУМ -- 

1010 РАТМТ АТ У$М№-1, Х$№+2; РАРЕВ 8;” ^ 

1020 ВОВОЕН 4: ТМРИТ ””" 

1030 РОВ Т=1 ТО 3 

1040 РВТМТ АТ УЗМ, ХЗМ; ТМК 2; "АВСБЕ” 

1050 РАЦЗЕ 3 

1060 РОВ №=0 ТО 7 

1070 РЕТМТ АТ УЗМ, ХЗМ; ТМК М; "66666" 

1080 ТЕТ №2=0: ТЕТ ВОВО=ТМТ (В№0»8): ТЕ В№<.5 ТНЕМ ЕТ \7=16 
1090 О0Т 254, №7+ВОВВ 

1100 МЕХТ № 

1110 МЕХТТ 

1120 ВОВОЕЯ 0 

1130 ВЕТОАМ 
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Для удобства разбора программы ее функциональные части, как и во многих 
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предыдущих, отделены друг от друга операторами ВЕМ. 

10...80 - формирование спрайта самолета, состоящего из семи полей 8х8 точек. 
Этот фрагмент аналогичен соответствующим частям в программах 7 и 8, поэтому 
повторяться не будем; 

110 - установка начальных координат изображения самолета на экране. 
Переменные Х$ и У5 задают новые координаты самолета, а Х51 и УЪ! - старые; 

120 - нижняя часть экрана окрашивается в зеленый цвет, имитируя землю. 
Синий цвет неба задается в строке 10; 

150, 160 - здесь формируются приращения координат самолета по горизонтали 
и вертикали при изменении его положения в пространстве на один шаг. Эти числа 
могут быть как положительными, так и отрицательными в диапазоне от -1 до +1, 
что позволяет самолету перемещаться во всех четырех направлениях; 

170 - устанавливается длина пролета самолета до момента изменения 
направления, измеряемая в шагах (ллина должна быть целым числом). Таким 
образом, в строках 150...170 задается случайная траектория полета самолета по 
экрану; 

210 - задается переменная С] - счетчик числа шагов; 

220...250 - в этой группе строк проверяются текущие координаты самолета 5Х и 
оу, чтобы он не ушел за пределы игрового поля. Числа 2, 25, 19 и 3 взяты с учетом 
конфигурации самолета. Если одна из его координат вышла за пределы, то 
соответствующая строка увеличивает (уменьшает) нужную координату на 
единицу, и программа возвращается на строку 150 - к вычислению новых 
приращений и длины пролета; 

260 - число уже выполненных шагов С] сравнивается с заданной длиной пролета 
ОГС; 

270, 280 - текущие координаты изображения самолета получают приращение, а 
затем округляются до меньшего целого - в строке 510 эти координаты (переменные 
ХМ и У5М) будут использованы для проверки попадания вашего снаряда в самолет 
противника; 

290 - переменной ЗЛО присваивается значение из порта джойстика; 

300...390 - блок управления прицелом содержит 10 условных операторов. 
Предположим, что ручка отклонена вправо (на «восток»), тогда функция ПМ 31 
возвратит код 225', который присвоится переменной 30. В строках 300...390 
анализируется значение этой переменной и в зависимости от результата будут 
изменяться значения координат самолета. Условие ЛО =225 проверяется в строке 
310, следовательно, координата Х5 уменьшится на единицу, самолет отклонится 
влево, а прицел как бы передвинется на один шаг вправо. Аналогично действуют и 
операторы, управляющие перемещением прицела в другие стороны; 

410 - стирается предыдущее изображение самолета. Включение оператора 
РАРЕК 8. позволяет не заботиться об изменении цвета фона при переходе самолета 
с синей части экрана на зеленую и обратно; 

420 - изображение самолета появляется на новом месте с новыми 
координатами; 

430 - новые координаты запоминаются в переменных Х$1 и \5$1, то есть 
становятся старыми; 

440...480 - черным цветом рисуется перекрестье прицела; 


‘Как уже говорилось, с вашим компьютером дела могут обстоять несколько 
иначе. Приведенные значения кодов справедливы только в том случае, если 
функция ПМ 31 в нейтральном положении джойстика возвращает число 224. 
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490 - если кнопка Огонь не нажата, то в центре изображения прицела ставится 
пробел; 

500 - при нажатой кнопке Огонь в перекрестии прицела появляется красный 
огонек; 

510 - сравниваются координаты изображений прицела и самолета. Если они 
совпадают хотя бы в одной точке, программа с помощью оператора СО 5ОВ 1000 
обращается к подпрограмме М/7ВУЧ (взрыв). Затем экран очищается и начинается 
следующая игра; 

520 - если ни одна из координат самолета не попадает в перекрестье прицела, 
программа переходит на строку 210, где счетчик шагов увеличивается на единицу, и 
можно вновь изменить положение ручки джойстика; 

1000... 1130 - здесь располагается подпрограмма, имитирующая на экране взрыв; 

1010 - в этой строке с экрана стирается хвост самолета, так как после взрыва он 
должен отвалиться; 

1020 - оператор ПМРОТ "" можно использовать, когда требуется просто очистить 
служебное окно без ввода данных. При этом цвет РАРЕК в нижних строках экрана 
станет таким же, как и цвет бордюра. Таким образом, в этой строке программы 
служебное окно закрашивается зеленым цветом; 

1030 - начало цикла по переменной | Цикл нужен для того, чтобы 
воспроизвести взрыв трижды; 

1040 - окрашивание изображения самолета красным цветом; 

1050 - небольшая пауза для фиксации изображения горящего самолета; 

1060 - начало цикла по переменной М, которая управляет цветом осколков 
самолета; 

1070 - вывод изображения осколков самолета; 

1080 - переменная М/7. служит для получения звука взрыва и может принимать 
значения 0 или 16, а переменная ВОВ задает случайный цвет бордюра; 

1090 - оператор ОЧТ производит действие, обратное функции П\, то есть 
записывает в указанный порт какое-то число. Порт с адресом 254 - один из 
наиболее важных в 7Х эрестат. К нему подключены клавиатура, магнитофон и 
динамик. Он же может управлять и цветом бордюра, если в него записать числа от 
0 до 7. Если в него посылать числа 0 и 16, достаточно быстро чередуя их, то 
получится какой-нибудь звук. Сумма кодов бордюра и звука объединит оба 
эффекта и мы получим переливающийся всеми цветами бордюр в сопровождении 
треска из динамика; 

1100...1110 - окончания циклов; 

1120 - бордюру возвращается первоначальный черный цвет; 

1130 - выход из подпрограммы. 

Не правда ли, глядя на огромный размер блока управления, хочется как-то 
сократить и упростить его? К счастью, это вполне осуществимо. Но прежде, чем 
узнать, как это делается, необходимо понять, откуда берутся указанные числа. Ведь 
на первый взгляд в их расположении нет никакой видимой закономерности. 
Однако закономерность, очевидно, все же должна быть, и чтобы ее обнаружить, 
необходимо представить полученные коды в двоичном виде. Мы уже встречались с 
такими числами, когда кодировали изображение «гномика». Но тогда двоичные 
числа мы переводили в привычный десятичный формат, а теперь нам нужно 
поступить наоборот. О том, как это сделать будет сказано чуть ниже, а пока 
посмотрим на коды джойстика в двоичном представлении: 


Положение Дес. Двоич. 
Нейтр. 224 00000 
Влево 275 00001 
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Вправо 226 00010 
Вниз 228 00100 
Вверх 232 01000 
Огонь 240 10000 


Как видите, здесь уже наблюдается определенная закономерность. Напомним, 
что в программировании 8-разрядные двоичные числа называют байтами, а 
отдельные разряды - битами. Из приведенной таблицы видно, что каждому 
направлению джойстика соответствует свой бит, в то же время три старших бита 
не изменяются и никакого влияния на процесс управления не оказывают. Поэтому 
в дальнейшем мы их учитывать не будем. Кстати, различия между отдельными 
компьютерами в отношении кодов джойстика касаются именно этих трех битов. 

Теперь посмотрим, как можно перевести числа из десятичной системы 
счисления в двоичную и «выловить» отдельные биты. К сожалению, в Зрестат- 
Бейсике не существует специальной функции, производящей такой перевод, 
поэтому придется написать небольшую программку: 

Программа 26. Перевод чисел из десятичной системы счисления в двоичную. 

10 ОТМ (5) 

20 ЕЕТ /0\=ТМ 31 

30 РОВ №=1 ТО 5 

40 ГЕТ 0У=.0У/2 

50 ГЕТ У(№)=(ОУ$ТМТ ОУ): ТЕТ ЗОУ=ТАТ У 
60 МЕХГ № 
70 РВТМТ АТ 0,0; 

80 РОВ №=5 ТО 1 $ТЕР -1 

90 РАТМТ (№); 

100 МЕХТ № 

110 60 ТО 20 

Эта программка выполняет следующие действия: 

10 - определение массива с размерностью, равной количеству интересующих 
нас битов; 

20 - чтение числа из порта джойстика; 

30...60 - в цикле проверяются отдельные биты, начиная с младшего и заносятся в 
элементы массива 15). Если после деления числа на 2 результат получается 
дробным (то есть делимое было нечетным), то это говорит о том, что младший бит 
установлен. В этом случае нужно отбросить дробную часть результата, что и делает 
функция ПМТ. 

Возможно, у вас вызвала недоумение запись ГЕТ ХМ) = (ЗОУ<>1ПМТ ОУ) в 
строке 50. Однако такой метод довольно часто применяется в программировании. 
Он позволяет обойтись без условного оператора 1}... ТНЕМ, в результате чего 
программа не только сокращается, но и работает заметно быстрее. Если условие в 
скобках выполняется, то возвращается единица, иначе - ноль. Если вы хотите 
проверить этот метод, можете сначала выполнить оператор РЕАПУТ (2=2), а затем 
РАПМТ (5<>5). В первом случае на экране появится число 1, аво втором - 0; 

70...100 - вывод двоичного числа на экран. В строке 70 текущая позиция печати 
устанавливается в левом верхнем углу экрана (не забудьте в конце оператора 
поставить точку с запятой, иначе позиция печати переместится). Затем в цикле 
выводятся значения отдельных битов от старшего к младшему; 

110 - переход для считывания и обработки следующей порции информации. 

После набора и запуска программы повертите ручку джойстика и 
понаблюдайте за реакцией. Обратите внимание на то, что если задавать 
диагональные направления, будут включаться одновременно несколько битов. В 
дальнейшем это даст возможность избежать лишних проверок и позволит 
включать в программу только пять строк (по количеству используемых битов) с 
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условными операторами вместо 18 (по количеству возможных комбинаций). 
Теперь можно видоизменить программу САМОЛЕТ. Вставьте в нее строку 
15 ОТМ (5) 
а затем удалите строки 300...390 и поставьте на их место новый блок 
управления: 
300 РОВ М№=1 Т0 5 
310 (ЕТ 4/0=0/2: ЕТ (№)=0ФТМТ 40: ЕЕТ О=ТАТ 0 
320 МЕХТ № 
330 ТЕ /(1)’ ТНЕМЯ ЕТ Х3=Х9+1 
340 ТЕ 4(2) ТНЕМ (ЕТ Х$=ХЗ-1 
350 ТЕ 4/(3) ТНЕМ (ЕТ \$=\5+1 
360 ТЕ 4(4) ТНЕМ (ЕТ \$=\5-1 
370 ЕЕТ ЕТВЕ=0 
380 ТЕ 4(5) ТНЕМ ЕТ РЕТВЕ=1 
В таком виде программа уже должна нормально работать на всех компьютерах, 
претендующих на совместимость с фирменным 7Х 5ресгат. 


Особенности управления клавиатурой 


С помощью функции П\, как уже говорилось, можно опрашивать и клавиатуру. 
Правда, у этого способа есть ряд существенных недостатков по сравнению с 
использованием функции ПМКЕУ$, что и делает его крайне нераспространенным. К 
недостаткам, например, можно отнести то, что с помощью ПМ за один раз можно 
опрашивать не все клавиши, а только по одному полуряду клавиатуры, то есть по 5 
клавиш, что заметно сказывается на быстродействии. Но иногда без обращения к 
порту бывает просто не обойтись. Например, если требуется получить 
диагональное движение, да при этом еще иметь возможность постреливать в 
противника. Поэтому игнорировать этот способ нельзя. 

Для реализации его, так же как и для джойстика, нужно знать адреса портов. 
Как мы уже говорили, клавиатура связана с портом 254, но на практике этого 
недостаточно, так как в этом случае мы будем считывать значения со всех 
полурядов одновременно и при нажатии Сар ЭМИ, А, О, 1, 0, Р, Ещег и 5расе будем 
получать один и тот же код. Аля выбора опрашиваемого полуряда нужно указать не 
только младший, но и старший байт адреса порта. Полный адрес может быть 
вычислен из выражения 254 + 256*(255-2 М), где М принимает значения от 0 до 7. 
Вот эти адреса и соответствие их полурядам клавиатуры: 


установлены). Если нажать какую-нибудь клавишу, то один из битов «сбросится» в 
0, причем младшим битам соответствуют крайние клавиши каждого полуряда, а 
старшим - те, что ближе к центру клавиатуры. Значит, чтобы определить, 
например, нажата ли клавиша О, нужно выполнить оператор 
ГЕТ КЕУ=ТМ 57342 
При нажатой клавише О полученный результат будет 11111101 в двоичном 


'Такая запись равноценна следующей: 1Е 1(1)<>0 ТНЕМ 
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виде, или 253 - в десятичном. Если окажутся «сброшены» и другие биты, это будет 
означать, что нажаты и другие клавиши. Рассмотрим небольшую программку, 
напоминающую графический редактор, в которой используется подобный способ 
управления. 

Программа 27. ОПРОС КЛАВИАТУРЫ. 
10 ТМК 6: РАРЕВ 0: ВВТСНТ 1: ВОВОЕВ 1: С1$ 
20 1ЕТ Р=0 
40 ГЕТ =120: 1е+ У=80: ГЕТ Х1=Х: ЕЕТ У1=\ 
50 60 5иВ 1000 
80 ТЕР ТНЕМ РЕЮТ Х-3,У-2: ОВАМ 4,4: РЕОТ Х-2,У-2: ОВАМ 4,4 
100 ТЕ Т№ 57342=253 АМО Х>б ТНЕМ ЕТ Х=Х-2 
110 ТЕ ТМ 57342=254 АМБ Х<248 ТНЕМ 1ЕТ Х=Х+2 
120 ТЕ Т№ 64510=254 АКО У<168 ТНЕМ (ЕТ У=\+2 
130 ТЕ ТМ 65022=254 АМО \У>6 ТНЕМ (ЕТ У=\У-2 
140 ЕЕТ Р=0 
150 ТЕ ТМ 32766=251 ТНЕМ ЕТ Р=1 
160 60 $08 1000 
170 (ЕТ Х1=Х: (ЕТ \1=\: 60 508 1000 
180 ТЕ ТМКЕУ$="№М" ОВ ТМКЕУ$="п” ТНЕМ (1$ : 60 ТО 50 
190 60 ТО 80 
1000 О\ЕВ 1 
1010 РИОТ Х1-2,\1: ОВАМ -4,0: РЕОТ Х1+2,У1: ОВАМ 4,0 
1020 РОТ Х1,\1-2: ОВАМ 0,-4: РЕОТ Х1, 1+2: БВАМ 0,4 
1030 О\МЕВ 0 
1040 ВЕТОВМ 

После ввода и запуска программы экран окрасится в черный цвет, а синий 
бордюр ограничит рабочее поле. В центре экрана появится мигающий курсор 
желтого цвета в виде перекрестья прицела. Нажимая клавиши О, А, О иР, курсор 
можно перемещать во всех направлениях. Если при этом нажать еще и клавишу М, 
то за курсором потянется след. Теперь прокомментируем вкратце строки этой 
программы: 

10 - установка атрибутов экрана; 

20 - переменная Р указывает положение «пера»; 0 - «перо» поднято, 1 - опущено; 

40 - установка начальных координат курсора; 

50 - обращение к подпрограмме, выводящей изображение курсора на экран; 

80 - если переменная Р не равна нулю, то есть «перо» опущено, то рисуется его 
профиль; 

100...190 - блок у правления курсором и положением «пера». Если нажата 
клавиша О, то курсор (а вместе с ним и «перо») перемещается на один шаг, равный 
двум пикселям, влево. Но это только в том случае, если курсор не дошел до левого 
края экрана (если условие Х>б выполняется). В строках 110... 130 аналогично 
проверяется нажатие клавиш Р, О и А. Обратите внимание, что в конце этих строк 
отсутствует оператор СО ТО, что позволяет при нажатии двух клавиш получить 
диагональное перемещение курсора, так как изменится не одна координата, а 
сразу обе; 

140, 150 - управление положением «пера». Если нажата клавиша М, переменная 
Р становится равной 1 и «перо» опускается на «бумагу»; 

160 - курсор после обращения к подпрограмме 1000 стирается; 

170 - изменение координат и вывод курсора в новое место экрана; 

180 - если нажата клавиша М, то рисунок на экране стирается - можно начинать 
рисовать новый; 

190 - переход для продолжения рисования; 

1000...1040 - подпрограмма вывода изображения курсора на экран. Режим ОУЕК 
1 устанавливается для того, чтобы не портить полученный рисунок и стирать 
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курсор на старом месте. При первом обращении к подпрограмме курсор 
появляется, а при втором - исчезает. 

Во многих программах вместо Кетр$юоп-джойстика используются Эшсап- 
джойстики. Для того чтобы приспособить рассмотренные программы к этому типу 
джойстиков, достаточно заменить в них опрос клавиш ©), А, О, Ри М на цифровые 
клавиши 6, 7, 8, 9, 0 (правый ЭшаН-джойстик) или 1, 2, 3, 4, 5 (левый эшаан- 
АЖОЙСТиИК). 


Взаимодействие играющего с программой 


Итак, вы научились при помощи клавиатуры или джойстика передвигать по 
экрану объекты, и может создаться впечатление, что проблема взаимодействия с 
играющим полностью решена. Однако это пока еще не так. В реальной игре, когда 
по экрану движется созданный вами человечек, самолет или что-то еще, возникает 
масса проблем, которые надо решать. Прежде всего необходимо закрашивать фон 
позади движущегося объекта, причем цвет фона может изменяться в различных 
частях игрового поля экрана. А что делать, если движущийся объект, которым вы 
управляете, «натолкнулся» на какое-то препятствие - стенку, дерево или какой-то 
движущийся объект? Наконец, как поступить с противником, в которого попал 
снаряд выпущенный вашим самолетом или танком? 

Рассмотрим на примере игры СОКОБАН, как решаются некоторые из 
перечисленных задач. 

Суть игры состоит в следующем: в разных частях склада стоят ящики, и 
управляемый вами грузчик должен передвинуть их в строго определенное место. 
Заметим, что склад очень напоминает лабиринт, - здесь есть узкие проходы, 
тупики, а ящики поставлены таким образом, что их 


Рис. 5.3. Игровое пространство игры СОКОБАН. 

перемещение больше напоминает головоломку, чем работу грузчика. Причем 
при движении по складу нельзя одновременно толкать два ящика, стоящих 
вплотную друг к другу, и тянуть ящик на себя. Так что не задвигайте груз в угол, 
иначе он останется там навсегла (рис. 53). 

Достоинством игры является возможность по своему усмотрению добавлять 
любое количество уровней, ничего не меняя в программе, а лишь дописывая строки 
в оператор ВРАТА. 

А сейчас обратимся к программе игры, коротко комментируя те строки, 
функции которых мы уже достаточно хорошо знаем. Подробно остановимся лишь 
на операторах, осуществляющих взаимодействие с играющим. Но прежде 
покажем, как можно использовать музыкальный кодовый блок МЕГ1] (см главу 4) 
для оформления игры. Сначала запишите на ленту следующую программу- 


загрузчик: 
10 СТЕАВ 59999 
20 [0АБ “"СОБЕ 60000 
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30 РОКЕ 60035, 230 
40 РОКЕ 60026, 0 
50 [ОАБ “" 

10 - выполняется оператор СТ5$ и изменяется адрес КАМТОР; 20 - загружается с 
ленты музыкальный блок, который помещается в память с адреса 60000; 

30 - устанавливается темп исполнения мелодии; 

40 - устанавливаются цвета бордюра на время исполнения мелодии; 

50 - загружается собственно игровая программа. 

Таким образом, после программы-загрузчика на ленте должен располагаться 
созданный ранее (см. главу 4) кодовый музыкальный блок, а за ним программа 
СОКОБАН, текст которой приводится ниже. В строке 230 помещен оператор, 
который запускает музыкальную кодовую программу. 

Программа 28. СОКОБАН. 

10 ВЕМ -- 0. 0. (0. --------- 

20 ЕОН №=0 ТО 39 

30 ВЕАБ 5: РОКЕ 158 "А"+№, 5 

40 МЕХТ № 

50 ВАТА 62, 42, 127, 127, 93, 85, 20, 20 

60 ВАТА 0, 191, 191, 191,0, 251, 251, 251 

70 ВАТА 0, 127, 127, 127, 99, 127, 127, 127 

80 БАГА 0, 24, 36, 66, 66, 36, 24,0 

90 ВАТА 0, 127, 127, 127,99, 127, 127, 127 
100 ВЕМ -- 7АУТАМКА --------- 


110 ВОЛОЕН 1: РАРЕВ 1: ТМК 6: (15 

120 РОТ 0,0: ОВАМ 0, 175: ОВАМ 255,0: ОВАМ 0, -175: ОВАМ -255,0 
130 РОТ 2,2: ОВАМ 0, 171: ОВАМ 251,0: ОВАМ 0, -171:ОВАШ -251,0 
140 РАТМТ АТ 1,10; ТМК 4: "** ”. ТМК 2: "ЗОКОВАМ": ТМК 4;” хх” 
150 РАТМТ АТ 4,5: Т№К 7; "СОМТАОЕ$ КЕУЗ:” 

160 РАТАМТ АТ 6,2: "0 - 1ЕЕТ” 

170 РАТМТ АТ 8,2: "Р - ВТОНТ” 

180 РВТМТ АТ 10,2;"0 - ЦР" 

190 РАТМТ АТ 12,2;”А - 00” 

200 РАТМТ АТ 14,2;:"Ё - ВЕРЕАТ ГЕМЕЕ" 

210 РАТМТ АТ 16,2;:"Е - САМЕ ОМЕН" 

220 РАТМТ АТ 19,4; ТМК 3: "РВЕЗ5 АМУ КЕУ ТО СОМТТМУЕ” 

230 НАМБОМТУЕ Ц5Н 60000 

250 ОТМ 0$(17,19): ТМ Р$(17, 19) 

260 ЕТ 1Е=0 

300 ВЕМ ---------------------- 

310 (ЕТ ЕЕ=ЕЕ+1: ТЕ (Е>1 ТНЕМ 00 ТО 110 

320 (15 

330 ТМК 4 

340 РАТМТ АТ 0,0; "С5/4:3;3:3:3;3:3:3:3:3:3:3;3:3:3:3:3;3:3,3:3:3;3:3,3:3:3;3:3:3:3:7" 
350 РАТМТ АТ 

21,0: "05/1: 05/3; 65/3:05/3: 05/3: 65/3: 05/3; 08/3: 65/3: 08/3: 65/3: 08/3: 65/3; 08/3: 65/3; 05/3 
: (5/3; 05/3: (5/3: 05/3; 65/3: 05/3; 08/3: 65/3: 05/3; (5/3: 05/3; (5/3: (5/3; 65/3: 05/3; 05/2" 
360 РОН №=1 ТО 20 

370 РАТАТ АТ М, 0: "(5/5 

380 РАТМТ АТ М, 31; "5" 

390 МЕХТ № 

400 РАТМТ АТ 0,11; ТМК 3: " ТЕМЕЕ: "ЕЕ: " " 

410 ВЕЗТОВЕ 1000+(1Е-1)*100 

420 РОВ Т=1 ТО 17 

430 НЕАВ 0$(Т) 

440 ТЕ 1$(Т)="ПППАППАППАППАПЛАЮЛИАО” ТНЕМ 60 ТО 520 

450 ЕОН /=1 ТО 19 

460 ГЕТ У\=Т+2: 1ЕТ ХХ=)+6: ГЕТ А$=0$(Т, 4) 

470 ТЕ А$="В” ТНЕМ ТМК 2 
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ТЕ А$="С" ТНЕМ ТМК 
ТЕ А$="0” ТНЕМ ТМК 
РЕТМТ АТ УУ, ХХ; АЗ 
МЕХТ 9 

МЕХТ Т 

ВЕАО Х, У 

РОКЕ 23658, 8 
ВЕ 
В 
А 


ЕЕР .01,-10: РАТ 
ЕМ -- ТАКЕУ$ ---- 
“р” ТНЕ 
‘НЕ 


Ч 
1 

1 = >< = >< 
Пр 
> 
< 
| 
> 


Ри 


‚ЕТУ 


—< 
М> 
>< 
во) 

И 


ОН 
1 
т 
>< 
гу 


” АК 
‚ ТАК 7, Рф(У,Х) 


94 


6 
7: ЕЕТ Р$(Т,/)="0” 


ГЕТ Х1=Х+1: 
ГЕТ Х1=Х-1: 
ГЕТ \1=У+1: 
ГЕТ У1=\-1: 
60 508 900: 
60 508 900: 


ГЕТ У1=\: 60 ТО 660 
ГЕТ У1=\: 60 ТО 660 
ГЕТ Х1=Х: 60 ТО 660 
ГЕТ Х1=Х: 60 ТО 660 
60 ТО 110 
60 ТО 410 


$(У1,Х1)<>"0” ТНЕМ 60 ТО 700 


: 60 ТО 550 

60 ТО 550 

2=У1-У: (ЕТ Х2=Х+2*Х2: 1ЕТ \2=\+2*\2 

Я 0$(У2,Х2)="С" ОВ 0$(\2,Х2)="Е" ТНЕМ 60 ТО 550 


‚ ТАК 7, РФС, Х) 


: (ЕТ 0$(\,Х)=Р$ (У, Х) 
ЕТ 0$(\2,Х2)="Е”: 60 ТО 780 


м мт те мт 2 трмт мт мт 2 
+ | 


№= 
1$ 
М= 
у$ 


ЕХТ 
ГОН М= 
ГОН М= 
60 то 
ВЕМ -- 
ГОН М= 


ВЕТИВМ 
ВЕМ - 
ВАТА 
ВАТА 
РАТА 
ВАТА 
ВАТА 
ВАТА 
ВАТА 
ВАТА 
РАТА 
РАТА 
ВАТА 
РАТА 
ВАТА 
РАТА 


ВЕЕР 0. 


У2,Х2)="С 
У2,Х2)="Е" ТНЕ 
АТ \У+2, Х+ 
Ой 


РВТМТ АТ \2+2,Х2+6; ТАК 6; " 
РВТМТ АТ \2+2, Х2+6; ТАК 7; " 
6; ТАК 7; "А" 


С 
Е 


№) =" ПАППППААППППААЛПППИ” ТНЕМ 60 ТО 860 


т еРТЭ 
№, М)="С” ТНЕ 


60 ТО 550 


-10 ТО 50 5ТЕР 3: ВЕЕР 0.01,№: МЕХТ № 
50 ТО -5 ЭТЕР -5: ВЕЕР 0.01,№: МЕХТ № 


310 
ВЕЕР 
30 ТО 50 5ТЕР 3 


- ГЕМЕЕ 1 


“ППППППППППЛЛААААААИ” 
“ПОППППППППЛЛААЛАААИ” 
“ПАППППППППЛАЛАЛАААИ” 
“ППППВВВВВПППИПИЛИИИ” 
“ПАППВППЛВЛППАЛЛАААИ” 
"ПППАВСПАВППППППППИИ” 
"ППВВВЛИСВВПППППППИИ” 
"ППВАПС С ВППППППППИ” 


"ВВВ В ВВ ВППЛВВВВВВ” 


"ВПППВ ВВ ВВВВВИИООВ” 
"В СПИСПЛППППППППООВ” 
"ВВВВВ. ВВВ В ВВППООВ” 
“ППППВППППЛВВВВВВВВВ” 
“ППППВВВВВВВПИПИИИИИ” 


":60 ТО 550 
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1015 БАТА "ПАПАПАПАЛАПППППППЛИ” 
1016 ВАТА “ПППППППППЛПЛППАЛЛЛИ” 
1017 ВАТА “ПППППЛААППППЛАЛАПИИ” 
1018 АТА 12, 12 

4100 ВЕМ = СЕМЕЕ --аына 
1200 ВЕМ -- ГЕМЕЕ 3 ---------- 
1300 ВЕМ -- ГЕМЕЕ 4 ---------- 
1400 ВЕМ -- ЦЕМЕЁ 5 ---------- 

В этой программе присутствуют все те блоки, о которых шла речь в начале 
книги, то есть заставка, блок игрового пространства, блок взаимодействия с 
играющим, а также блок оценки игровой ситуации, о котором мы подробно 
расскажем в следующей главе. 

10...90 - эти строки кодируют графические символы, необходимые для 
построения игрового пространства. Букве А в режиме курсора [С] соответствует 
грузчик, букве В - кирпичная стенка, С - ящик, О - место, куда этот ящик 
необходимо поставить и Е - ящик, поставленный на свое место; 

100...220 - вывод на экран заставки. Сначала рисуется двойная рамка по 
периметру экрана, затем печатается название игры и информация о назначении 
клавиш; 

230 - вызов кодовой подпрограммы, исполняющей музыкальный фрагмент МЕГ 
1. Чтобы исполнение не было бесконечным, необходимо при выборе условий 
компиляции в программе \\"Ват установить определенный режим. Выберем такой, 
когда мелодия прекращает звучать при нажатии любой клавиши (это соответствует 
условию 1. КЕУРВЕЗ5). 

Если вы хотите исключить музыкальный фрагмент из программы, строку 230 
нужно заменить на такую: 

230 РАЦЗЕ 0: 00 558 900 

250 - залаются два массива: в массив 0$(17,19) в строках 450...520 записывается 
картина игрового пространства, а массив Р$(17,19} служит для восстановления 
фона и содержит только те элементы картинки, которые могут стираться при 
прохождении по ним грузчика или ящиков, а именно обозначения мест установки 
ящиков. 

260 - в переменной ГЕ хранится номер уровня; 

310 - увеличение номера уровня и проверка завершения последнего уровня. 
Если вы дополните программу своими лабиринтами, то понадобится изменить 
условие ТН ГЕ>1, вместо единицы подставив количество уровней в вашей версии 
программы; 

320...390 - очистка экрана и печать рамки, в которую затем будет помещен 
склад-лабиринт. Рамка рисуется с помощью псевдографических символов; 

400 - печать номера уровня; 

410 - оператор КЕЗТОВКЕ (восстановить) уже упоминался нами во второй главе. 
Здесь он необходим для указания начала данных для каждого уровня. В 
выражении, следующим за КЕЗТОВЕ вычисляется номер строки, с которой 
располагаются данные игрового пространства уровней Так для первого уровня 
данные должны начинаться со строки 1000, а для каждого следующего уровня 
номера строк увеличиваются на 100; 

420...520 - в этих строках осуществляется чтение оператором КЕАР из списка 
РАТА информации о конфигурации стен склада, расположении ящиков и тех 
местах, куда эти ящики необходимо передвинуть. Буквы в строках 1001...1017 
набираются в режиме курсора [С] и соответствуют графическим символам, 
определенным в начале программы; 

430 - здесь строка за строкой считываются данные из списка РАТА и 
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записываются в двухмерный массив 10$(17,19), причем первая координата 
указывает на положение символа по вертикали, а вторая - на его положение по 
горизонтали; 

440 - эта строка служит для ускорения построения экранного изображения. 
Если считанная строка символов целиком состоит из пробелов, то происходит 
переход на следующий «виток» цикла; 

450...510 - во внутреннем цикле анализируется очередная строка массива 0$ и 
формируется изображение на экране; 

460 - перед тем, как поставить тот или иной символ на экран, его координаты 
(переменные УУ и ХХ) изменяются таким образом, чтобы все изображение 
лабиринта оказалось посередине. В переменную А$ заносится анализируемый 
СИМВОЛ; 

470, 480, 490 - в зависимости от выводимого символа устанавливается его цвет: 
стены (графический символ В) будут иметь красный цвет, ящики (С) окрасятся 
желтым цветом, а места для установки ящиков (2) будут белыми. Кроме того, если в 
анализируемой строке массива встречается графический символ ПО, он 
записывается в соответствующее место другого массива - Р$; 

500 - печать очередного символа в место с заранее рассчитанными 
координатами; 

530 - последними в операторах ВАТА читаются координаты грузчика (в отличие 
от ящиков, фрагментов стенки и т. д. у грузчика нет номера в массиве, а есть только 
координаты); 

540 - оператором РОКЕ 23658,38 устанавливается режим ввода заглавных букв, 
чтобы в дальнейшем при опросе клавиатуры избежать лишних проверок. Более 
подробно об операторе РОКЕ мы расскажем позже; 

560 - изображение грузчика выводится на экран после короткого звукового 
сигнала; 

Далее идут строки, которые образуют все вместе блок взаимодействия с 
играющим, представляющий в данный момент для нас наибольший интерес; 

580...640 - блок, в котором осуществляется управление движением грузчика 
путем изменения его координат, повтор текущего уровня (клавиша Г.) и выход на 
начальную заставку при нажатии клавиши Е; 

660 - координаты Х1, У1 показывают, куда перемещается грузчик, а Х, У - место 
на экране, где он находится сейчас. Здесь проверяется клетка, куда должен встать 
грузчик. Если она не фоновая (не пробел и не «ромбик»), то программа переходит 
на строку 700; 

670 - в клетке, где ранее находился грузчик, нужно восстановить прежний фон, 
заполнив ее тем символом, который был здесь раньше. Требуемый символ может 
быть либо пробелом, либо «ромбиком», соответствующим графическому символу 
р. Этот символ мы берем из массива Р$ и выводим на экран; 

680 - переписывание новых координат в старые и переход на строку 550, где 
осуществляется вывод на экран изображения грузчика. После этого происходит 
новый цикл изменения координат, то есть перемещение грузчика на один шаг; 

700 - проверяется условие: если клетка, куда должен встать грузчик, заполнена 
фрагментом стенки, то переход на строку 550, выводящую изображение грузчика. 
Координаты при этом не изменяются, так как идти сквозь стенки нельзя; 

710 - все графические символы мы перебрали, кроме ящика, который может 
обозначаться символами С или ЕЁ. В этой строке сначала вычисляются направление 
перемещения ящика, а затем координат клетки, расположенной впереди него (Х2, 
У2), то есть того места, куда он перемещается; 
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720 - проверка содержимого клетки с координатами (Х2, У2). Если там стена, 
другой ящик или ящик, поставленный на свое место, то все остается по-старому 
(безусловный переход на 550); 

740 - так же, как и в строке 670, восстанавливается фон клетки, гле ранее 
находился грузчик; 

750 - присваивание переменным, обозначающим координаты грузчика новых 
значений. Место в массиве 0$, откуда убран ящик, заполняется фоком из массива 
Р$; 

760 - Если ящик встал на «ромбик», то в массиве 0$ на этом месте появляется 
символ Е, обозначающий ящик, поставленный на свое место. 

В противном случае (строка 770) ящик, как и прежде, обозначается символом С; 

780 - если ящик не встал на свое место, то он закрашивается желтым цветом. 
Далее - безусловный переход на строку 550; 

790 - если ящик установлен, куда нужно, то он закрашивается белым цветом; 

800 - грузчик появляется на новом месте. Эта строка введена для того, чтобы 
изображение грузчика не пропадало на время последующих проверок; 

810...860 - проверка: остались ли не поставленные на свои места ящики или нет. 
Строка 820 здесь введена для ускорения цикла. Если остался хотя бы один ящик, то 
происходит переход на строку 550, после чего весь цикл проверок повторяется; 

870, 880 - если оказалось, что все ящики поставлены на свои места, то звучит 
трель, и мы попадаем на слелдующую строку; 

890 - переход на новый уровень, то есть в новый лабиринт-склад, к новому 
расположению ящиков; 

900 - подпрограмма звукового сопровождения начала игры (заменяет при 
необходимости кодовую подпрограмму МЕГ 1). 

Со строки 1000 начинаются блоки данных, описывающих различные уровни 
игры, вам предоставляется возможность самостоятельно сформировать лабиринты 
уровней, начиная со второго. Впрочем, ничто не мешает вам изменить и первый 
уровень. Нужно помнить только, что каждая строка в кавычках должна состоять из 
19 символов, а самих строк должно быть 17. В конце каждого блока необходимо 
указывать два числа, определяющих начальные координаты грузчика. И последний 
совет: количество ящиков в лабиринте (графический символ С) должно совпадать с 
количеством «ромбиков» (символ О). 
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6. ОЦЕНКА ИГРОВОЙ СИТУАЦИИ 


«Оценка игровой ситуации» - довольно неоднозначное понятие. В него может 
входить как простой подсчет очков, числа попаданий или любой другой числовой 
величины, так и общий контроль ситуация в игровом пространстве, которую мы 
видим на экране. Разработчики игровых программ обычно стараются в равной 
мере использовать как количественную, так и качественную оценку, однако 
специфика игры часто диктует свои требования. Так, в известной игре Тей1$ нас 
больше интересует положение в «стакане», целиком захватывает процесс борьбы с 
фигурками, их правильная укладка, а об очках мы вспоминаем, когда игра уже 
закончена. Тем не менее, количество набранных очков в этой игре тоже играет 
важную роль, так как без них невозможно узнать, становится ли выше от раза к 
разу уровень нашего мастерства и каков он по сравнению с уровнем других 
игроков. Однако есть и такие популярные игры, как например, ТотавВамкК, где 
игровое пространство выглядит очень просто, зато количественная оценка 
ситуации изобилует всевозможной числовой и текстовой информацией. 

Опираясь на эти и другие примеры игровых программ, можно сделать общие 
выводы относительно того, как формировать блок оценки игровой ситуации 

Если создаваемая вами игра динамична, с быстро изменяющейся ситуацией на 
экране, с большим числом движущихся объектов, подобно Еушад эВагк, то не 
следует злоупотреблять числовыми данными, ограничив их одним-двумя. При этом 
располагать данные лучше где-то в дальней части экрана, делая изображения цифр 
небольшими и неброского цвета. 

Если же вы разрабатываете спокойную игру с медленно развивающимся 
сюжетом типа \У1ео Роо| то в этом случае все параметры игры могут 
характеризоваться числовыми величинами, и количество сообщений 
ограничивается лишь местом на экране. Возможен даже вариант, когда для 
демонстрации оценочных числовых характеристик отводится целый экран. Что 
касается оформления информации, то в рассматриваемом случае цифровые 
надписи желательно делать максимально отличными одна от другой, используя для 
этой цели символы различных форм и размеров, всевозможные рамки и цветовое 
оформление. Кроме того, будет нелишним сопроводить выдачу на экран особо 
ценной информации звуковыми эффектами. 

А теперь от общих соображений перейдем к конкретным программам. Для 
начала рассмотрим те программы, которые использованы нами в предыдущих 
главах. В игре ЧИСЛА оценка результата игры чисто цифровая; нас интересует 
здесь даже не само неизвестное число, а количество шагов, которое делает 
играющий для его угадывания. Программа ЖИЗНЬ включает в себя оба вида 
оценок, то есть мы следим за очередной популяцией и оцениваем ее характер - идет 
размножение или угасание. Но для того чтобы уловить тонкости процесса 
развития, выведены и количественные оценки: номер поколения и количество 
особей в нем. Наконец, в игре СОКОБАН нет ни одной числовой характеристики, 
но от этого игра не становится менее интересной. 


Элементы оценок 


В качестве примеров будет полезно рассмотреть несколько фрагментов 
программ, в которых иллюстрируются разные виды оценок. Больше всего в играх 
распространены всевозможные подсчеты: числа очков, числа попаданий, 
количества оставшихся попыток (жизней), снарядов ит. д. Объясняется это прежде 
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всего простотой программной реализации в сочетании с высокой 
информативностью этих оценок. Действительно, если экран сигнализирует о том, 
что осталось всего 1-2 снаряда, то вы наверняка не броситесь сломя голову в гущу 
сражения, а будете изо всех сил нажимать на клавиши или ручку джойстика, 
стремясь уйти от выстрелов противника. 

Предположим, что в некоторой игре требуется подсчитать количество 
оставшихся жизней причем на момент начала игры их было 10. Тогда, если 
опустить «игровые» строки программы и, наоборот, выделить те, которые отвечают 
за выполнение поставленной задачи, то можно предложить следующий вариант: 

50 [ЕТ КО1=10: [ЕТ РОР=О: [ЕТ Т1МЕ=999 100 ВЕМ * ЗТАВТ САМЕ + 
480 ТЕТ КОЕ=КОЕ-1 
485 РАТМТ АТ 1,5; РАРЕВ 0; ТМК 4; "[ТУЕЗ: ”; КОЕ 
490 ТЕ КО!>0 ТНЕМ 60 ТО 100 

500 РВТМТ АТ 10, 11; РАРЕВ 2; ТМК 7; "САМЕ О\МЕВ!” 

50 - в этой строке задаются начальные значения всех переменных, которые 
будут использованы в программе в качестве счетчиков! Восклицательный знак - это 
не типографская опечатка, а попытка привлечь ваше внимание к важному 
элементу программы. Сколько сил, нервов и времени бывает потрачено 
программистами впустую только оттого, что где-то забыли задать начальные 
значения каких-то величин. Для будущих опытов в программировании опишем 
здесь переменные, которые нам еще понадобятся: 

КОГ  - количество жизней; 

РОР - число попаданий; 

ТПМЕ - оставшееся до конца игры время; 

100 - сэтой строки начинается часть программы, реализующая алгоритм игры; 

480 - после того, как на экране завершится один цикл действий, обусловленных 
сюжетом игры, количество жизней уменьшается на единицу. Программа может 
попадать на эту строку, например, при поражении вашего корабля торпедой 
противника или после истечения времени, отведенного на одну попытку; 

490 - в следующей после изменения счетчика строке чаще всего определяется, 
на какую строку перейти, если значение управляющей переменной (у нас - КОГ) 
превысит или окажется меньше заданной величины. В нашем примере - если 
жизни еще остались (КОГ не равна 0), то можно продолжить игру (управление 
передастся на строку 100), в противном случае (КОГ=0) игра должна быть 
закончена; 

500 - если условие в строке 490 не выполняется, то выводится сообщение о том, 
что игру пора начинать сначала или загружать другую. 

Большое количество популярных игр связано с попаданием одних предметов в 
другие, что в переводе на язык программирования означает столкновение 
спрайтов, а если быть еще более точным и перейти на язык математики, - 
совпадение соответствующих координат. Чтобы реализовать в программе новую 
оценку - оценку факта попадания снаряда в цель, - достаточно вставить в нашу 
программку всего одну строку: 

200 ТЕ Х=Х$ АМО \=\У5 ТНЕМ ГЕТ РОР=РОР+1:РАТМТ АТ 1,25; РАРЕВ 2; ТМК 5; "5СОВЕ: “;РОР: 
60 508 1000 

Здесь Х и У соответствуют координатам цели, а ХЗ и У$ - координатам снаряда. 
Если горизонтальные и вертикальные координаты одновременно совпадают, то 
счетчик РОР увеличивается на единицу, после чего на экран выводится 
информация об общем количестве попаданий в цель. Поскольку каждое попадание 
желательно сопроводить аудио- и видеоэффектами, то на этот случай в строке 
предусмотрен вызов соответствующей подпрограммы, которую, как мы надеемся, 
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вы уже можете написать самостоятельно. Если хотя, бы одна из координат не 
совпадает, то операторы строки 200 после ТНЕМ выполняться не будут, переменная 
РОР останется без изменений и программа перейдет на слелдующую строку. 

Остановимся еще на одной величине, которая наиболее часто используется в 
игровых программах, - времени игры. Это может быть время, оставшееся до конца 
игры, или время, потраченное на игру с момента ее запуска. Вставим в 
приведенный выше фрагмент программы следующие строки: 

300 [ЕТ ТТМЕ=ТТМЕ-1: РАТМТ АТ 0,25; ТМК 7; РАРЕВ 1; “ТТМЕ: ";ТТМЕ; "_ ^ 
310 ТЕ ТТМЕ=О ТНЕМ РАТМТ АТ 12,10; РАРЕВ 4; ТАКТ; "ОУТ ОЕ ТТМЕ”: 60 ТО 480 

Как вы уже догадались, глядя на строку 300, здесь будет выводиться на экран 
время, оставшееся до конца игры (напомним, что начальная величина МЕ = 999 
установлена в строке 50). Одновременно со счетом происходит постоянный 
контроль переменной МЕ в строке 310, и как только условие этой строки 
выполнится, на экране появится текст ОСТ ОЕ ТТМЕ, который говорит о том, что 
время, отпущенное на выполнение задания в игре, закончилось. Затем программа 
переходит к строке 480, лишающей игрока одной жизни. 

Этими примерами, разумеется, не исчерпывается та информация, которую 
можно выводить на экран во время игры. Кроме числовых характеристик, хорошо 
смотрятся различные текстовые сообщения о ходе игры, особенно если они 
выполнены на русском языке, да еще хорошим шрифтом. От того, какая 
информация будет появляться в процессе игры и как она будет подана, зависит 
очень многое, поэтому блоку оценки всегда следует уделять должное внимание. 


Комплексная оценка игры 


Давайте обратимся к программе БОМБЫ (рис. 6.1), в которой присутствуют оба 
типа оценки игровой ситуации. 

Несколько слов о том, что должно происходить на экране. После нажатия 
любой клавиши будет нарисован слой воды синего цвета, на дне возникнет зеленая 
растительность, и где-то посреди нее расположится красный люк. Слева направо 
начнет двигаться корабль 


Рис. 6.1. Игровое пространство игры БОМБЫ. 
белого цвета, причем скорость корабля в течение игры будет изменяться, чтобы 
нельзя было вычислить заранее время пуска бомбы. Нажимая любую клавишу, вы 
открываете бомбовый люк, и оттуда вырывается и устремляется к поверхности 
бомба, которая должна быть выпущена с таким расчетом, чтобы, дойдя до 
поверхности, столкнуться с кораблем. Если вы попали в корабль, то происходит 
взрыв, раздаются соответствующие звуки, и на табло появляется информация о 
попадании. 
Программа 29. БОМБЫ. 
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30...150 - кодирование и ввод в память компьютера графических символов, 
которым соответствуют следующие изображения: 

А - бомба, 

В - подводная растительность, 

С - фрагмент подводного люка, 

р - открывающаяся часть люка, 

Е - крышка люка, 

Е - вода, 

С - нос корабля, 

Н - средняя часть корабля, 

Г- корма корабля; 

200...270 - вывод на экран заставки игры; 

280...310 - последняя часть заставки выводится таким образом, чтобы буквы 
переливались разными цветами; 

320 - вывод разноцветной фразы будет продолжаться до тех пор, пока игрок не 
нажмет какую-либо клавишу; 

330...380 - переменным присваиваются первоначальные значения. Ц - уровень 
воды, КХ - горизонтальная координата корабля, В - положение люка по 
горизонтали, В0=0 - бомба не выпушена, В0=1 - бомба из люка вышла, но до 
поверхности не дошла, ВХ - координата х бомбы, ВУ координата у бомбы, 5С - 
набранные очки, ВОМ - количество имеющихся бомб, 5 - скорость движения 
корабля; 

400...420 - на экране изображается толща воды; 

430 - вывод изображений зеленой растительности на дне моря; 

440 - установка пускателя бомб красного цвета, символ Ё изображает закрытый 
люк; 

450 - задание начальных координат и скорости корабля; 

460 - вывод корабля; 

465 - проверяется, остались ли в наличии бомбы; 

470 - если никакая клавиша не нажата, и бомба не выпущена (80=0), то 
рисуется закрытая крышка люка, после чего происходит переход на строку 550; 

480 - если клавиша нажата, то выводится изображение открытой крышки; 

490 - изменение вертикальной координаты бомбы ВУ и подача звукового 
сигнала, свидетельствующего о ее движении вверх. Во время подъема бомбы 
высота сигнала меняется пропорционально переменной ВУ; 

500 - проверка следующих условий: бомба дошла до поверхности и бомба 
соприкоснулась с кораблем. Если оба условия выполняются, то вызывается 
подпрограмма М/7ВКУМ/, имитирующая взрыв, а затем появляется новый корабль, и 


6. ОЦЕНКА ИГРОВОЙ СИТУАЦИИ 103 


все начинается заново; 

510 - проверка условия бомба дошла до поверхности, но не попала в корабль. 
Если это условие выполняется, то устанавливаются значения некоторых 
переменных, изображение бомбы на поверхности закрашивается, после чего 
происходит переход на строку 550; 

515, 520 - изображение на экране бомбы, полнимающейся к поверхности из 
глубины; 

550 - изменение горизонтальной координаты корабля, проверка - дошел он до 
края экрана (моря) или нет; 

560 - вывод числовых характеристик игры - числа набранных очков и 
количества оставшихся бомб. Таким образом, результаты игры постоянно 
присутствуют в двух оценочных надписях: ЭСОВЕ и ВОМВ; 

600 - если бомбы еще есть, то переход на начало цикла игры; 

700...780 - вывод на экран заключительной надписи о результатах игры. Каждая 
буква текста переливается разными цветами; 

1000...1070 - подпрограмма со звуковыми эффектами, имитирующая взрыв 
корабля. 

Подводя итог, можно сказать следующее. 

В этой простой игре присутствуют обе оценки: качественная и количественная. 

Качественную оценку можно соотнести со строками программы 450...550, то 
есть с теми операторами, которые формируют сложную динамическую 
(меняющуюся во времени и пространстве) картину, на которую играющий в 
состоянии оказывать определенное воздействие. Это воздействие влияет на 
результат игры и является чрезвычайно важным фактором. 

Числовые характеристики игры, которые индицируются во время всего 
сражения, играют в этой игре вспомогательную роль. Их обеспечивают строки 
программы 560 и 700...770, причем тот набор данных, который мы видим, является 
минимально необходимым, то есть без этих результатов невозможно судить о ходе 
игры. Однако можно учитывать и другие параметры: скорость корабля, глубину 
цели, размеры цели и т. д. Это потребует внесения некоторых изменений в 
программу и преобразования игрового пространства. Попробуйте! 
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7. СИСТЕМНЫЕ ПЕРЕМЕННЫЕ 


Наверное, ни один уважающий себя программист не ограничивается только 
теми средствами, которые предлагает стандартный 5рестат-Бейсик. Поэтому мы в 
нашей книге хотим сказать несколько слов о других возможностях, 
предоставляемых операционной системой компьютера. В первую очередь речь 
пойдет о так называемых системных переменных. 

Системными переменными называют специальную область памяти 
компьютера, которую операционная система использует для хранения различных 
данных и промежуточных результатов при выполнении тех или иных операторов. 
Знание и умение пользоваться этой областью дает удивительные плоды и в одних 
случаях позволяет обогатить программу на Бейсике совершенно потрясающими 
эффектами, а в других - сократить ее или увеличить ее быстродействие. 

С некоторыми из системных переменных мы уже встречались: вспомните, 
например, оператор РОКЕ 23658,8, который устанавливает режим ввода прописных 
букв. Все прочие системные переменные можно изменять точно так же, записывая 
в ячейки памяти с помощью оператора РОКЕ числа из определенного диапазона. 
Записываемые числа должны быть целыми и в пределах от 0 до 255. 

Однако экспериментировать с системными переменными, так же, как мы это 
советовали для изучения операторов, не рекомендуется. Если вам неизвестен 
смысл той или иной ячейки памяти, лучше оставить ее в покое и не испытывать 
судьбу, потому что при изменении системных переменных мы вторгаемся в святая 
святых компьютера При грубом и неумелом вмешательстве в операционную 
систему предугадать результат бывает совершенно невозможно. 

Системные переменные были описаны в литературе достаточно подробно, 
поэтому мы не станем повторяться, а расскажем лишь о некоторых из них и о том, 
как их можно использовать в игровых программах. Если же вы захотите более 
подробно разобраться в этом вопросе, советуем обратиться к книге [1]. 


Клавиатура 


Мы уже немало рассказали о способах управления программой и спрайтами, 
однако разговор этот можно продолжить. Ряд ячеек в области системных 
переменных имеет непосредственное отношение к клавиатуре, а значит и к теме 
нашей книги, поэтому рассказ о них не повредит. Вы прекрасно знаете, что если 
при наборе или редактировании строк программы понадобится ввести несколько 
одинаковых символов подряд (или удалить часть текста), то вовсе необязательно 
бешено колотить по одной и той же клавише, а достаточно слегка надавить на нее и 
подождать с полсекунды - нужный символ сам начнет быстро размножаться. В 
игровых программах также бывает полезно использовать принцип задержки перел 
повторением какого-либо действия: перелвижения главного героя, перемещения 
курсора в меню и т. п. Для этого проще всего блок управления начинать 
оператором РАОЪЕ 0, например: 

100 РАЦЗЕ 0: ТЕТ К$=1М№КЕУ$ 
110 ТЕ К$="0” ТНЕМ ВЕТ У=\-1 
120 60 ТО 100 

Правда, в этом случае придется отказаться от джойстика, так как действие 
оператора РАЦЗЕ прерывается только от клавиатуры, но тут уж ничего не 
поделаешь - нужно выбирать При использовании данного способа управления у вас 
может возникнуть желание изменить время задержки перед повторением или 
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частоту самих повторений. Знание системных переменных позволит вам с 
легкостью осуществить это желание. Изменение времени задержки производится 
оператором 

РОКЕ 23561, № 

где М - любое число от 0 до 255. Только не переборщите, иначе проще будет не 
дожидаться повторений, а упорно тыкать в клавиатуру. Полезно знать что 
начальное значение, записанное в ячейке 23561, равно 35, а время задержки 
исчисляется в 50-х долях секунды. Частота повторений регулируется системной 
переменной, расположенной по адресу 23562. Здесь единица измерения времени 
такая же, как и для предыдущей переменной - 1/50 секунды, а начальное значение 
равно 5. 

В длинных и продолжительных циклах, особенно если нельзя останавливать 
программу оператором РАЧЪЬЕ 0, бывает очень трудно определить нажатие какой- 
либо клавиши и возникает ситуация, когда жми, не жми - все впустую. Ведь 
компьютеру в этом случае нужно выполнить огромное количество разных 
операций, а когла очерель доходит до ТЕ ПМКЕУ$, оказывается, что клавиша давно 
уже отпущена. Бороться с подобными ситуациями поможет системная переменная 
ГАЗТ_К, занимающая ячейку 23560. В этой ячейке хранится код последней 
нажатой клавиши, причем остается он там и при отпускании клавиши до тех пор, 
пока вы не нажмете другую или не выключите компьютер. Таким образом, для того 
чтобы определить, какая из клавиш была нажата, нужно сначала узнать код ячейки 
23560, а затем перевести его в символ. 

Читать значения ячеек памяти позволяет функция РЕЕК ад Аг, где аа ЯГ - адрес от 
О до 65535, а переводит числовые значения в символы функция СНЕ$ Коа. Посему, 
строки типа 

ГЕТ К$=ТМКЕУ$ 

в описываемых случаях можно заменять на ГЕТ К$ = СНЕ$ РЕЕК 23560 

Помните только, что при таком способе опроса клавиатуры вам самим придется 
позаботиться о своевременном сбросе переменной ГАЗТ_К в конце блока 
управления, вставив в программу оператор РОКЕ 23560,0. 

Говоря о клавиатуре, необходимо упомянуть и о системной переменной РР 
(адрес 23609), изменяя которую, можно установить желаемую длительность звука, 
издаваемого компьютером при нажатии клавиш. В программах это бывает полезно, 
если используется оператор ПМРОТ. Для разнообразия можно даже вводить 
различные данные с разным «звуковым сопровождением». Например, наберите и 
«послушайте» такую программку: 

10 ТМРИТ "0..255-->",Р: [ЕТ Р=ТМТ Р 
20 ТЕ Р<0 ОВ Р>255 ТНЕМ 60 ТО 10 


30 РОКЕ 23609,Р 
40 60 ТО 10 


Комментировать эту программку, наверное, нет особой нужды, скажем только, 
что после ввода целого числа от 0 до 255 оно записывается в системную 
переменную РГР и следующий ввод сопровождается уже другим звуком. 


Экран 

Системные переменные охватывают все стороны жизнедеятельности 
компьютера, и уж конечно не обойден вниманием такой важный момент, как 
вывод информации на экран. В первую очередь поговорим о тех эффектах, 
которые невозможно получить только с помощью операторов Бейсика. 

Как вы уже знаете, в Бейсике отсутствует возможность изменения цвета 
«чернил» в служебном окне - он устанавливается автоматически. Нельзя в нижних 
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строках также задать режим повышенной яркости или мерцания. Но это 
становится реальным, если отказаться от оператора ВОВПЕК и воспользоваться 
одноименной системной переменной ВОВПЕК, находящейся по адресу 23624. 
Небольшая трудность возникает при определении кода атрибутов, справиться с 


которой поможет формула: 
АТТВ=ТМК+РАРЕВ х 8+ВАТСНТ х 64+ЕТАЗН х128 
То есть если мы хотим делать надписи в служебном окне желтыми «чернилами» 


на синем фоне с повышенной яркостью, нам нужно в ячейку 23624 записать число 
6+1х8+1 х 64+0х128=78 

выполнив оператор РОКЕ 23624,78. Но помните, что выполнять эти действия 
надо после оператора ВОКПЕК, иначе все моментально вернется на круги своя. 

Не лишне будет знать что и с основным экраном можно поступать 
аналогичным образом, и вместо цепочки операторов ПМК, РАРЕКВ, ВШСНТ и РГАЗН 
записывать код атрибутов, рассчитанный по приведенной формуле, в системную 
переменную АТТК_Р (адрес 23693). Конечно, текст программы при этом будет 
читаться труднее, но зато вы достигнете большего быстродействия и сократите 
объем самой программы. 

Вы, наверное, еще помните трудности, связанные в выводом текстов в две 
нижние строки экрана. Но существование такого понятия как служебное окно 
вовсе не означает, что вы обречены пожизненно довольствоваться таким 
положением вещей. Оказывается, служебное окно при желании можно и вовсе 
убрать с экрана. Для этого достаточно записать в ячейку 23659 ноль (обычно там 
«сидит» двойка). Но будьте осторожны! Перед остановкой или завершением 
программы, а также при использовании оператора ПМРОТ значение этой системной 
переменной обязательно нужно восстановить включив в программу оператор 
РОКЕ 23659,2. Если этого не сделать, то при попытке выдачи любого сообщения 
(лаже если это сообщение ОК) компьютер, не обнаружив служебного окна, очень 
огорчится, и, скорее всего, огорчит и вас. Попробуйте ввести с клавиатуры РОКЕ 
23659,0 (только если в памяти нет какой-нибудь ценной программы, чтобы нечего 
было терять) и посмотрите на результат. Надо сказать что этот оператор 
программисты часто включают в свои творения с целью защитить их от 
несанкционированного доступа к тексту программы. Но это между прочим, а в 
основном использование ячейки 23659 подразумевает именно изменение размеров 
служебного окна. Приведем такой пример: 

10 РОКЕ 23659, 0 
20 РАТАМТ АТ 22,5; "ЕТМЕ 22” `ТАВ 5; "[ТМЕ 23” 


30 РОКЕ 23659,2 
40 РАЦЗЕ 0 


Выполнение этой программки приведет к выключению служебного окна и 
появлению в строке 22 экрана, начиная с пятой позиции, сообщения МЕ 22. 
Апостроф переместит позицию печати на слелдующую строку, в которой также в 
пятой позиции появится надпись ГИМЕ 23. Затем служебное окно восстановится и 
программа будет ожидать нажатия любой клавиши. Несмотря на то, что после 
удаления служебного окна основной экран займет все 24 строки, выполнять 
оператор РЕИМТ АТ 23,0 ни в коем случае нельзя, так как это приведет к выдаче 
сообщения Пцедег о\{ о{ гапде со всеми вытекающими отсюда последствиями. 
Именно поэтому в строке 20 приведенного примера для перевода позиции печати в 
нижнюю строку экрана используется апостроф. 

И еще об одной системной переменной, касающейся экрана. Представим себе 
такую ситуацию, когда нужно нарисовать что-нибудь (скажем, рамку} в режиме 
наложения (ОУЕК 1) Напишем фрагмент программы, выполняющий это задание: 
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100 О\ЕВ 1 
110 РИОТ 80, 88 
120 ОВАМ 80,0: ОВАМ 0,40 
130 ОВАМ -80,0: ОНАМ 0, -40 
140 ОМЕВ 0 
Казалось бы, все очень просто, о чем тут можно говорить? Однако это не так. 
Присмотритесь повнимательнее к тому, что получилось на экране. Нижний левый 
угол прямоугольника оказался ущербным исчезла одна точка, та самая, которая 
ставится вначале оператором РГОТ Каким же образом исправить лефект? Можно, 
конечно исхитриться и не доводить последнюю линию до конца, написав РКАМ/ 0,- 
39 вместо ОРКАМ/ 0,-40. Но это не всегда удобно, и тут-то вам на помощь придет 
системная переменная СООКО5, хранящаяся в двух ячейках 23677 и 23678. Она 
содержит координаты последней поставленной точки. Замените в примере строку 
110 на 
110 РОКЕ 23677,80: РОКЕ 23678, 88 
- и дефект исчезнет: ведь точка на самом деле не ставится, а просто 
перемещается РГ.ОТ-позиция! 


Наборы символов 


Не менее важны в игровых программах вопросы, касающиеся наборов 
символов, ибо именно в дополнительных наборах символов хранятся созданные 
вами спрайты. В третьей главе мы уже упоминали о системной переменной СНАБ$. 
Тогда для смены набора символов мы изменяли одну ячейку памяти 23607. На 
самом же деле эта переменная занимает два байта - 23606 и 23607, в которых 
хранится адрес, на 256 меньше адреса текущего набора. Вы можете создать не 
один, а несколько дополнительных наборов символов: один, к примеру, будет 
содержать русский шрифт, а другие - спрайты, причем для каждого уровня 
спрайты могут быть свои. Затем, меняя значение переменной СНАК$, можно 
подключать к работе любой из дополнительных наборов. Если пользоваться только 
ячейкой 23607, то альтернативные фонты могут быть расположены по строго 
определенным адресам с шагом в 256 байт, использование же и второй половинки 
переменной СНАБК$ позволит не заботиться о местоположении фонта и загружать 
его в любое удобное место памяти. Если, например, новый набор загрузить по 
адресу 60000, то включаться он будет таким фрагментом программы: 

1000 ТЕТ АО=60000-256 
1010 РОКЕ 23607, ТМТ (АО/256) 
1020 РОКЕ 23606, Аб-256»РЕЕК 23607 
Вернуться к стандартному знакогенератору можно с помощью строки: 
9990 РОКЕ 23606,0: РОКЕ 23607, 60 
С помощью системной переменной СНАКЗ могут быть получены довольно 
интересные эффекты. Рассмотрим один из них на примере такой программки: 
10 Т\К 2: РАРЕВ 0: ВВТСНТ 1: ВОВОЕН 0: СТЕАВ 59999 
20 РОВ №=0 ТО 7: РОКЕ 60000+№, 2^№: РОКЕ 60008+М№, 2^№: МЕХТ М 
30 РАТАТ АТ 10,11; ТМК 4; "САМЕ" 
40 РОКЕ 23607, 233 


60 РОКЕ 23606, 96+Т 

70 РВТАМТ АТ 8, 8; "ПППППППИПППЛИ”; АТ 12, 8; "ППАППАППППППИ” 
80 РОН №=9 ТО 11: РАТМТ АТ М, 8; “;АТ №,20;"";: МЕХТ № 
85 ТЕ ТМКЕУ$<>"" ТНЕМ 60 ТО 100 


7. СИСТЕМНЫЕ ПЕРЕМЕННЫЕ 108 


Г 

|= 

- 
и 
[| 
Г 
| 
Г 
Г 
Г 
[| 
и 
Г 
Г 
Г 
Г 
Г 
Г 
[ 


Рис. 7.1. Примеры фактур. 

10 - установка атрибутов экрана и бордюра, а затем выделение свободной 
области памяти «над» бейсик-программой, начиная с адреса 60000. Кроме всего 
прочего оператор СТЕАВ попутно очищает экран, поэтому нет надобности в 
операторе СТ5$; 

20 - в реальной программе эта строка может отсутствовать, если в памяти уже 
загружен дополнительный набор символов. Здесь же два соседних символа в цикле 
заполняются фактурой, плавно переходящей одна в другую. На самом деле можно 
использовать не два символа, а сколь угодно много; главное, чтобы каждый 
следующий продолжал предыдущий, а последний повторял первый, как показано 
на рис. 7.1; 

30 - на экране появляется слово САМЕ зеленого цвета; 40 - заносим в старший 
байт системной переменной СНАК$ заранее рассчитанное значение: ПУТ((60000- 
256)/256) = 233 

Далее в цикле (строки 50...90) адрес символьного набора постепенно смещается, 
и на экран вокруг слова САМЕ пробелами (которые в измененном виде выглядят 
как наклонные черточки) выводится рамка. Так как адрес набора смещается, то и 
символы начинают видоизменяться, что создает иллюзию прокручивания рамки; 

60 - изменяется младший байт переменной СНАК$. Поскольку в данном случае 
его значение не превышает 255, то старший байт остается без изменений; 

70, 80 - рисуется рамка; 

85 - если нажата любая клавиша, программа переходит на строку 100; 

90 - конец цикла и после его завершения -- переход для повторения; 

100 - восстанавливается стандартный символьный набор. 

Операционная система ХХ 5ресцтат позволяет менять не только адрес полного 
набора символов, но также и местоположение символов определяемых 
пользователем (И)С), начальный адрес которых хранится в ячейках 23675 и 23676. 
Известная вам функция О5В "А" возвращает число, записанное именно в этих 
ячейках и равноценна выражению РЕЕК 23675- 256"РЕЕК 23676. Попробуйте 
самостоятельно изменить приведенную выше программку таким образом, чтобы 
задействовать в ней вместо полного набора символы ООС. Помните, что в этом 
случае адрес символов уменьшать на 256 уже не нужно. 


Разное 


Системная переменная 5ЕЕШ, занимающая адреса 23670 и 23671, хранит 
значение, используемое функцией КМО для расчета очередного псевдослучайного 
числа. В ней не было бы ничего примечательного, если бы не одна особенность, 
делающая ее в некотором смысле уникальной. В орестат-Бейсике оператор 
КАМРОМШМЕ задает начальное значение для функции КМО. Этот оператор 
выполняет одно-единственное действие - заносит в переменную ЗЕЕ указанное 
число. В этом легко убедиться, если ввести строку: 

ВАМООМТУЕ 12345: РАТМТ РЕЕК 23670+256*РЕЕК 23671 
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В результате вы увидите на экране число 12345, то есть число, заданное 
оператором КАМРОМИИЕ. Это обстоятельство можно с успехом использовать 
вместо расчетов младшего и старшего байтов адреса нового набора символов или 
для других целей. Во всяком случае, запись 

ВАМООМТУЕ АО: РОКЕ 23606,РЕЕК 23670: РОКЕ 23607,РЕЕК 23671 
равнозначна записи 
РОКЕ 23607, ТМТ(АБ/256): РОКЕ 23606, Аб-256*РЕЕК 23607 
но в первом случае мы обходимся без лишних расчетов. Правда, такой способ 
допустим только в тех случаях, когда число АО (или любое другое) заведомо не 
равно нулю, потому что оператор КАМРОМПУЕ 0 или просто КАМРОМШЕ 
действует несколько по-иному. В этом случае в системную переменную ЗЕЕР 
переписывается число из другой переменной - ЕКАМЕ$ которую можно назвать 
системным таймером. Располагается она в трех ячейках памяти: 23672, 23673 и 
23674. После включения компьютера в ней содержится ноль, но как только система 
заработает, она начинает увеличиваться на единицу через каждые 1/50 секунды. 
Таким образом, прочитав значение из ЕКАМЕ$ можно узнать сколько времени 
прошло с момента включения компьютера. Это позволяет при желании встраивать 
с игровые программы часы, а также сопоставлять любые игровые моменты с 
реальным временем. Представим программку электронных часов, которую вполне 
можно использовать и в играх (см. программу МАКСИТ в приложении 1): 
10 ТМРИТ "п: “; 1; "Пт; “:п, "1$; ”; $ 
20 (ЕТ 111=(1*3600+1*60+$) *50 
30 (ЕТ 13=ТМТ (41т/65536): ГЕТ 12=ТМТ ((11т-{3*65536)/256): [ЕТ 11=(41т-12*256- 
{3*65536) 

40 РОКЕ 23672,11: РОКЕ 23673,12: РОКЕ 23674, 13 

100 ГЕТ 11п=(РЕЕК 23672+256»РЕЕК 23673+65536=РЕЕК 23674)/50: ЕТ П=ТМТ (11/3600): 

ГЕТ м=ТАТ ((11т-1п*3600)/60):1ЕТ $=Е1т-1*3600-п»60 

110 ТЕ 1>=24 ТНЕМ РОКЕ 23672,0: РОКЕ 23673,0: РОКЕ 23674,0: 60 ТО 100 

120 ЕТ $1=ТМТ $: (ЕТ $=58-$1: [ЕТ 1$=";"; ТЕ $>.7 ТНЕМ (ЕТ %$=”_ " 

130 РВТАТ АТ 0, 20; ("0” АМО п<10); п; 1$; ("0” АКО м<10); т; $; ("0” АМО $1<10); $1 

140 ТЕ ТМКЕУ$="” ТНЕМ 60 ТО 100 

Прокомментируем строки этой программы: 

10 - ввод текущего времени; В - часы, т - минуты и $ - секунды; 

20 - перевод введенного времени в 50-е доли секунды; 

30 - переменная Ит раскладывается на три байта для занесения ее в системную 
переменную ЕКАМЕЪ в строке 40; 

100 - из системной переменной ЕКАМЕ$З берется значение текущего времени и 
переводится в часы, минуты и секунды; 

110 - проверяется, не прошло ли 24 часа. Если да, то системный таймер 
обнуляется; 

120 - значение секунд разделяется на целую ($1) и дробную ($) части. Если 
дробная часть не больше 0.7 секунды, то между цифрами часов, минут и секунд 
будет ставиться двоеточие, а если больше - пробел. В результате разделяющие 
двоеточия будут мигать в такт секундам, что «оживит» вид часов; 

130 - вывод значений часов, минут и секунд, причем если какое-то значение 
получилось меньше 10 (то есть состоит из одной цифры) то перед ним 
допечатывается ноль, в результате чего числа всегда получаются двузначными; 

140 - переход для расчета следующего момента времени. 

Используя в своих программах системный таймер, нужно помнить также о том, 
что на момент извлечения звука с помощью оператора ВЕЕР (включая и писк 
клавиатуры при вводе строк программы или данных в операторе ПМРОТ), а также 
при загрузке и сохранении программ на магнитной ленте время для компьютера 
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останавливается, и переменная ЕКАМЕ$ не изменяется. То же самое происходит и 
в некоторых других случаях, связанных, в основном, с обращением к 
подпрограммам в машинных кодах, речь о которых пойдет в следующем разделе. 


Подпрограммы ПЗУ 


Операционная система компьютера представляет собой большую программу, 
написанную в машинных кодах. И как в любой программе, в ней есть масса 
полезных подпрограмм. К великому сожалению, далеко не все из них можно 
вызывать непосредственно из Бейсика, но некоторые вполне успешно могут быть 
использованы. 

Обращение к кодовой подпрограмме осуществляет известная вам (правда, в 
другом качестве) функция ОЗК. Как вы знаете, любое выражение Бейсика должно 
начинаться с оператора, поэтому для вызова кодовых подпрограмм чаще всего 
используют конструкции типа КАМРОМПЕ Ч5В а@аг, где а@аг - адрес 
подпрограммы. Например, КАМРОМУЕ ОВ 3435 выполнит те же действия, что и 
оператор СТ5. 

Часто в меню игровых программ можно встретить пункт КОНЕЦ ИГРЫ, при 
выборе которого память очищается и на экране появляется надпись © 1982 5шсат 
Кезеагсь Ма. Обычно это достигается включением в программу оператора МЕМУ, 
который удаляет се и обнуляет память вплоть до адреса, указанного в операторе 
СТЕАК. Более кардинально очистить память можно с помощью оператора 
КАМРОМШЕ ОЪК 0. В этом случае произойдет то же, что и при нажатии кнопки 
Кезе{. 

В игре САМОЛЕТ у нас возникала необходимость очистить служебное окно 
экрана. Там мы воспользовались для этого оператором ПМРОТ. Олнако 
программисты часто поступают по-другому, вставляя в программу оператор 
ВАМРОМИИЕ О5$К 3438. 

В заключение этой главы рассмотрим еще одну возможность, не имеющую 
аналогов среди операторов Бейсика. 

При переходе от заставки к игре мы всегда очищали экран командой СТ5, но в 
некоторых играх удаление заставки происходит другими способами. Пожалуй, 
самый распространенный из них - скроллинг. Заставка не сразу исчезает с экрана, 
а постепенно «уползает» в сторону. 

Вертикальное движение изображения достигается использованием оператора 
ВКАМРОМШМЕ Ч5В 3582, который перемещает весь экран на одну строку вверх. 
Попробуйте в любую из приведенных ранее заставок включить строку 

РОН М=1 ТО 24: ВАМООМТУЕ 158. 3582: ВЕЕР .01,М№: МЕХТ № 

и вам наверняка захочется использовать этот фрагмент и в своих собственных 

программах. 
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8. ГАЗЕК ВАЗ!С В ИГРОВЫХ ПРОГРАММАХ 


После того, как вы научились делать простые и не очень простые заставки и 
спрайты, нельзя пройти мимо пакета программ, специально предназначенного для 
манипулирования графическими изображениями - Газег Вазс. Этот пакет 
значительно расширяет возможности 5рестат-Бейсика, вводя в действие более 
ста новых операторов и функций. Среди них вывод на экран готовых спрайтов, 
инвертирование, повороты, зеркальное отображение и перемещение этих 
спрайтов по всем направлениям. Картинки предварительно готовятся с помощью 
генератора спрайтов, или делаются одним из способов, о которых мы говорили 
раньше, например, с помощью редактора Ап 510. После отладки программы в 
интерпретаторе Газег Ваз1с ее можно скомпилировать, что почти в два раза 
увеличит скорость ее работы и к тому же защитит текст от несанкционированного 
доступа. 


Введение в [а$ег Ва$!с 


Подробное описание Газег Ваз1с с примерами и пояснениями дано в книге [2]. а 
мы ограничимся лишь теми сведениями, без которых невозможно разобраться в 
предлагаемых ниже программах. Основными объектами, с которыми придется 
иметь дело, будут окна и спрайты. С окнами мы уже встречались, когда учились 
записывать спрайты на магнитную ленту редактором Ай 510. В Газег Ваз1с окно 
также выделяет прямоугольную область экрана, на которую распространяется 
действие операторов, выполняющих графические преобразования. Окно задается 
координатами левого верхнего угла, а также шириной и высотой (все параметры 
задаются в знакоместах). Кроме экранного окна, в которое можно поместить 
целиком весь спрайт, в Газег Ваз1с есть еще одно полезное понятие - окно спрайта. 
Оно означает, что и в самом спрайте можно выделить определенную часть и 
вывести се на экран, а затем преобразовать, передвинуть и т. д. Эти операции могут 
оказаться очень полезными при создании всевозможных зрительных эффектов. 

Операторы Газег Вас задаются ключевыми словами, состоящими из пяти 
символов, первый из которых - точка, а четыре последующих - прописные буквы 
латинского алфавита. Например: .РТВТ, .ЗЕТУ, (СТМ и т. д. Набираются ключевые 
слова посимвольно, буква за буквой, а их параметры передаются интерпретатору 
через специальные графические переменные, которым перед выполнением 
оператора необходимо присвоить те или иные значения. 

Имена графических переменных состоят из четырех символов: первый - точка, 
остальные - прописные буквы латинского алфавита. Всего графических 
переменных 10: 

.ВОМ/У, .СОГ - вертикальная и горизонтальная координаты в знакоместах, 
причем их значения могут выходить далеко за пределы экрана (лопустимые 
пределы - от -128 до - 127). 

„НСТ, .ГЕМ - высота и ширина графического объекта (окна экрана, спрайта), 
выражаемые в знакоместах (0...255). 

.ЭКМ/, .5СТ - вертикальная и горизонтальная координаты внутри спрайта в 
знакоместах (пределы - в зависимости от размеров спрайта). 

.МРХ - величина и направление вертикального скроллинга в пикселях |(- 
128...127). 

.ЭРМ - номер спрайта в спрайт-файле (1...255). 

.5Р1, .5Р2 - номера первого и второго спрайтов (1...255) для операторов, 
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работающих с двумя спрайтами. 

Для присвоения значений графических переменных обычным числовым 
переменным используются специальные графические функции. Выглядят они так 
же как и графические переменные, но вместо точки в них стоит знак вопроса. 
Например, КОМИ, $ 5РМ. Тогда оператор присваивания имеет вид: ГЕТ К = ВКОМ/ - 
где К - обычная числовая переменная. 

Наиболее распространенная версия пакета Газег Ваз1с поддерживает работу как 
с магнитофоном, так и с дисководом в системе ТК-РО$. Если вы пользуетесь 
последним, то перед операторами ГОАО, ЗАУЕ, МЕВСЕ и УЕКШУ следует 
вставлять: КАМРОМТЗЕ ОЪВ 15619: ВЕМ: 

Для работы с пакетом вначале следует загрузить программу-диспетчер ГАЗЕК, 
после чего на экране появится меню, изображенное на рис. 8.1. (для 
магнитофонной версии опции 5 и 6 будут отличаться от изображенных на 
рисунке). 

Выберите в меню опцию ГОАР "ЗРЕТТЕ2В" ЗРЕТЕ, нажав клавишу 4. Начнется 
загрузка фирменного спрайт-файла ФЭРЕГГЕ?В. Этот файл используется в 
демонстрационной программе РЕМО. Для разработки своих программ мы возьмем 
оттуда несколько готовых спрайтов, чтобы эти программы смогли потом 
посмотреть читатели. После окончания загрузки вновь появится главное меню 
Газег Ваз!с. 


Рис. 8.1. Главное меню программы Газет Ваз1с. 

Загрузим теперь интерпретатор Газег Ваз!с, выбрав пункт 1 ЕХЕСОТЕ ГАЗЕК 
ВАЗС. Бейсик-программа выгрузится, и в ОЗУ останется только интерпретатор. 
После этого можно выполнять операторы Газет Ваз{с. 

Однако прежде, чем писать программу заставки или какой-то игры, проделаем 
несколько простых опытов с новыми операторами и графическими переменными. 

Введите программу: 

10 ВОЛОЕЯ 0: РАРЕВ О:ТАК 5 
20 СЕ5: (ЕТ 5=-2 

30 РОН \№=7 ТО 10 

40 ВО\=5:.С0Е=$: . ЗРМ=М 

50 .РТВЬ 

60 РАЦЗЕ 5 

70 МЕХГ № 

80 (ЕТ 5=5+2 

90 ТЕ 5<32 ТНЕМ 60 ТО 30 

После запуска программы оператором КОМ вы увидите на экране изображение 
прыгающего слева направо забавного зверька, который, как в настоящем 
мультфильме, шевелит ушами и носом и двигает лапками во время прыжков. 

Попробуем разобраться, каким образом достигается этот эффект. 

10 - установка атрибутов экрана; 

20 - очистка экрана и присваивание переменной 5 начального значения; 
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30 - начало цикла по переменной М, которая задает номер выводимого на экран 
спрайта. Сходство получающейся картинки с мультфильмом достигается благодаря 
тому, что на экран последовательно выводятся четыре спрайта с номерами 7, 8, 9 и 
10, которые соответствуют разным фазам движения зверька; 

40 - задание номера спрайта и его местоположения на экране. При этом 
координата расположения спрайта по вертикали остается постоянной, а 
горизонтальная координата все время увеличивается, в результате чего он 
перемещается слева направо; 

50 - оператор вывода на экран спрайта с номером, заланным переменной .5РМ в 
строке 30; 

60 - оператор паузы; 

70 - конец цикла; 

80 - увеличение переменной 5, определяющей положение спрайта по 
горизонтали; 

90 - переход на начало цикла движения до тех пор пока спрайт не уйдет за 
пределы экрана. 

Олним из достоинств Газег Вазс является наличие в нем оператора 
перенумерации строк. То есть теперь можно не думать о том, какие номера ставить 
в начале каждой строки, а, написав программу, выполнить оператор .КМОМ 10, 10, 
10 - и строки вашей программы получат новые номера, кратные 10; при этом 
автоматически поменяются адреса в операторах СО ЗОВ и СО ТО. В операторе 
.ВМУМ первое число - это номер строки программы, с которой начнется 
перенумерация, второе число - новый номер этой строки и, наконец, третье - шаг 
нумерации строк программы. 

Теперь полезно набрать и запустить маленькие программки, описанные в книге 
[2], иллюстрирующие простейшие действия с окнами и спрайтами. Они помогут 
познакомиться с новыми операторами и понятиями Газег Ваз, которые 
пригодятся вам при написании серьезных программ. 


Заставка на [а5ег Ва$!/с 


Вы уже познакомились с большим количеством заставок и наверняка заметили, 
что подавляющее большинство из них представляют собой просто картинки - 
красивые, но статичные изображения. С помощью Газег Ваз1с можно очень 
простыми средствами оживить не только саму игру, но и заставку. Имея желание и 
достаточно терпения вы вполне сможете создать даже заставку-мультфильм. Ниже 
приведен текст программы, на примере которой показано, как совместить уже 
известные вам операторы 5ресат-Бейсика с новыми операторами и 
графическими переменными Газег Вас. 

Сначала несколько слов о том, что происходит при работе программы. 

После ее ввода и запуска вы увидите в верхней части экрана движущийся 
автомобиль, к которому прицеплено название игры. Как только он скроется за 
пределами экрана, название появится вновь в средней части экрана. Затем вступит 
в действие другая часть программы и выведет на экран медленно перемещающееся 
поле из цветов, а вдалеке от него понесется локомотив с двумя пассажирскими 
вагонами. На то, что он не стоит на месте, укажут перемещающийся 
железнодорожный путь и бешено вращающиеся колеса (рис. 8.2). А теперь 
рассмотрим саму программу. 
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Рис. 8.2. Мультипликационная заставка «Паровоз». 
Программа 30. ПАРОВОЗ. 

10 ЕТ К=1: (ЕТ Р=1: ЕТ 0=1 
20 ВАМООМТУЕ 058 58841: 60 ТО 30 
30 ВАМООМТУЕ :.5ЕТ=0: .ВОМ=О: . С01=0:.Н@Т=24: . ЕЕМ=З2 
40 ВОВОЕВ 0: РАРЕН 0: ТАК 4: ВАТСНТ 1 
50. (15\: . ЗЕТУ 
60 С0 508 300 
70. ЗЕТ=0: . ЗРМ=4 


80 РОН М=1 ТО 40:.НОМ=ТМТ (В№*8+14):.СОЕ=ТМТ (АМ№О*31):.РТВЕ: МЕХТ № 
90.В0И=13:.ЗР№=51: РОН №=0 ТО 24 5ТЕР 8:.С0Е=М:.РТВЕ:МЕХТ № 
100. ЯОМ=10:. С0Е=20: . ЗР\=34:.РТВЕ 

110. АОМ=10:. С01=10:.$Р\=48:.РТВЕ 

120. НОМ=10:.С01=0:.ЗР№=48:.РТВЕ 

130. ЗЕТ=2: . НОМ=12:.С01=0:. 5Р№=49:.РТВЕ 
140. ЗЕТ=З: . НОМ=12:.С01=10:.$Р№=49:.РТВЕ 
150.5ЕТ=4: .НОМ=13:.С01=0:.ЕЕМ=З2: .Н@Т=12 
160. ЗЕТ=5: .НОМ=12:.С01=20 

170 РОВ №=1 ТО 4: ТЕ №=4 ТНЕМ ВЕЕР .005,0 
180. 5ЕТ=5: . ЗРМ=№+34: .РТВЁ 

190. ЗЕТ=2: . ЗРМ=К+48:.РТВЕ 

200 ТЕТ К=К+1: ТЕ К=3 ТНЕМ ЕТ К=1 

210. ЗЕТ=3: . ЭРМ=К+48:.РТВЕ 

220. ЗЕТ=4: ‚ЕТУ: МЕЛ: , МЕТУ 

230 ТЕ Т\КЕУ$<"" ТНЕМ 60 ТО 500 

240. ЗЕТ=1: ТАК М№:.ЗЕТУ 

250 МЕХТ № 

260 ВЕЕР .005,0: @0 ТО 170 

300 ВЕМ -------------------- 

310 ТЕТ А$="50ТНЕАМ ВЕЕЕ” 

320. 5ЕТ=1: . ЗРМ=5 

330. В0М=3: . СОЕ=0:.Н@Т=2:. ЕЕМ=З2 

340 Т\К 4:.ЗЕТУ 


350.АТОЕ:.РТВЕ 

360 РОН В=0 ТО 13 

380 РОН №=1 ТО 8 

390. $В1\ 

400 МЕХТ № 

410 РАТМТ АТ 4,0;А$(14-В) 
420 МЕХТ В 

430. АТОМ 

440 РОВ №М=1 ТО 260 

450. 5В1\ 
460 МЕХТ М 

470 РВАТМТ АТ 4,10; ТАК 3;А$ 

480 РНТМТ АТ 6,6; ТМК 5; "бапк&-Ретегзбиг9ПИ1993” 
490 ВЕТОК 

500 ВЕМ ----------------------- 
510.5ЕТ=0:.ВОМ=0: .НаТ=24:. ЕЕМ=16 
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520 РОН М=1 ТО 16 

530. С0Е=0: . ЗЕ8М: . АТЕУ 
540. С0Е=16:.5А8\:. АТВУ 
550 ВЕЕР .02,№ 

560 МЕХТ № 


10 - присваивание переменным начальных значений; 

20 - обязательный в Газег Ваз1с оператор запуска интерпретатора. Следом за 
КАМРОМИИЕ ЧЪ$К 58841 должен стоять оператор СО ТО или КУМ с номером 
строки. В противном случае возможны сбои в работе программы; 

30 - восстановление счетчика случайных чисел, а также установка графических 
переменных набора 0. Обычно в Газег Ваз различные объекты описываются 
разными наборами графических переменных, которые задаются специальной 
переменной .ЪЕТ. Это позволяет изменять параметры одного объекта, не 
затрагивая остальных. Всего в программе может быть определено 16 наборов (от О 
до 15); 

40 - установка атрибутов экрана; 

50 - оператор ‚СТЗУ очищает окно экрана (в данном случае в наборе .ЗЕТ=0 
задано окно во весь экран), а .ЗЕТУ устанавливает в нем постоянные текущие 
атрибуты; 

60 - обращение к подпрограмме, которая выводит на экран спрайт-автомобиль, 
перемещает его слева направо, постепенно добавляя к нему буквы названия игры. 
Подпрограмма заканчивается двумя строками текста; 

70 - из спрайт-файла ЭРЕГГЕ?В программа выбирает 4-й спрайт («цветок»), 
после чего в цикле (строка 80) печатается 40 таких спрайтов. Координаты по 
вертикали задаются таким образом, чтобы все «цветочное поле» располагалось в 
нижней части экрана; 

90 - после выполнения этой строки на экране появляются рельсы (спрайт 51); 

100 - из спрайт-файла выбирается спрайт 34 - «локомотив» и выводится на 
экран на место с координатами (10,20); 

110, 120 - вывод на экран двух вагонов (спрайт 48); 

130, 140 - вывод на экран изображения колес вагонов (спрайт 49). Поскольку в 
дальнейшем координаты колес на экране будут использоваться для создания 
впечатления их вращения, графические переменные запоминаются в наборах 2 и 3; 

150 - в 4-м наборе переменных задаются координаты, ширина и высота окна 
экрана, охватывающего рельсы и все цветочное поле. В дальнейшем 
горизонтальный скроллинг этого окна создаст иллюзию движения локомотива 
относительно пейзажа; 

160 - в 5-м наборе переменных определяются координаты вывода на экран 
колес локомотива; 

170 - здесь начинается цикл вращения колес, перемещения рельсов и цветов, 
причем М равное 35, 36, 37 и 38 соответствует спрайтам четырех положений колес 
локомотива. Если эти спрайты выводить на экран поочередно, то создастся 
впечатление, что колеса вращаются. На последнем «витке» цикла (М = 4) раздается 
короткий звук, имитирующий стук колес; 

180 - устанавливается набор номер 5 - колеса локомотива - и на экран выводится 
спрайт, соответствующий очередной фазе их вращения; 

190...210 - вывод на экран спрайтов колес двух вагонов. В отличие от спрайтов 
колес локомотива, этих спрайтов только два, поэтому переменная К может 
принимать значения 1 или 2 (строка 200); 

220 - циклическое смещение окна, содержащего изображения рельсов и 
цветочного поля (набор 4), на три пикселя влево (трижды выполняется оператор 


8. ГАЗЕК ВАЗ!С В ИГРОВЫХ ПРОГРАММАХ 116 


МЛАМУ); 

230 - нажатие любой клавиши вызовет переход к завершающей части 
программы; 

240 - в наборе переменных номер 1 заданы параметры окна экрана, 


охватывающего название игры. Цвет тона изменяется с управляющей переменной 
М, и этим цветом окрашиваются буквы в окне. В результате надпись будто бы 
постоянно переливается; 

250 - конец цикла; 

260 - после завершения цикла еще раз повторяется звук, имитирующий стук 
колес, затем программа переходит на начало цикла и все повторяется; 

300 - начало подпрограммы вывода на экран названия игры; 310 - присваивание 
строковой переменной названия игры; 320 - задание спрайта номер 5 - 
(автомобиля) в 1-м наборе; 330 - задание начальных координат автомобиля, а также 
высоты и ширины окна, в котором он будет перемещаться по экрану; 340 - 
установка зеленого цвета тона в заданном окне; 350 - запрет переноса атрибутов во 
всех операциях между экраном и спрайтами, затем вывод спрайта-автомобиля на 
экран; 

360 - начало цикла по переменной В, в котором следом за автомобилем 
появляется название игры; 

380...400 - заданное окно в цикле скроллируется на 8 пикселей (то есть на одно 
знакоместо) вправо (8 раз повторяется оператор .5К1М/); 

410 - в освободившееся после скроллинга окна знакоместо выводится очередная 
буква названия игры; 

420 - конец цикла по переменной В; 

430 - разрешение переноса атрибутов в операциях между экраном и спрайтами; 

440...460 - скроллинг окна с автомобилем и названием игры вправо на 1 пиксель. 
Этот скроллинг повторяется 260 раз, в результате чего все изображение, пройдя по 
экрану слева направо, исчезает; 

470, 480 - вывод неподвижных надписей в середину экрана; 490 - выход из 
подпрограммы вывода названия игры; 500 - завершающая часть программы; 

510 - устанавливается набор 0, в котором задаются параметры окна экрана; 

520...560 - в цикле две половинки экрана расходятся в разные стороны, как 
шторы; 

530 - переменной .(СОГ=0 задается окно, охватывающее всю левую половину 
экрана. Выполняется скроллинг окна влево на одно знакоместо, и одновременно - 
скроллинг атрибутов; 

540 - заданное окно перемещается в правую половину экрана, и осуществляется 
скроллинг на одно знакоместо вправо вместе с атрибутами; 

550 - звуковое сопровождение цикла. 

Увидев эту программу в действии, вы наверняка захотите в ней что-то изменить 
и даже улучшить. Отлично! Вместо изображения автомобиля можете использовать 
спрайт вертолета с вращающимся винтом, вместо поезда - бронетехнику и т. д. 
чтобы выбрать что-то подходящее, просмотрите содержание всего спрайт-файла 
ЭРАГГЕ2В и запишите номера понравившихся спрайтов. Для этого придется 
ввести следующую небольшую программу: 

10 .ВОМ=10:. С0Е=10 
20 РОВ №=1 ТО 59 
30 .5РМ=М: РТВЕ 
40 РВТМТ АТ 21,0; № 


50 РАЦЗЕ 0 
60 (15 
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70 МЕХТГ № 
В цикле управляющая переменная М задает номер спрайта (строка 30), который 
выводится на экран оператором „РТВГ в знакоместо с координатами (10,10), 
определенными в строке 10. Сам номер тоже печатается (строка 40). Внимательно 
рассмотрев спрайт и решив, подходит он вам или нет, переходите к слелующему; 
для этого достаточно нажать любую клавищу. 


Игровая программа 


Попробуем использовать операторы и графические переменные Газег Ваз!с в 
простенькой игре, которую назовем БЕГА МЫШЕЙ. Как и ранее, спрайты возьмем 
из спрайт-файла ЭРЕТГЕ$?2В. Если же вам захочется создать собственный набор 
картинок для новой игры, следует сначала воспользоваться одним из генераторов 
спрайтов: ЭРТСЕМ или ЭРВАГГЕВ. Обе программы предназначены для создания 
наборов собственных спрайтов которые можно будет использовать в Газег Вазс. 
При этом, если ЭРТСЕМ ориентирован на создание изображений по точкам, то 
ЭРАТГЕК позволяет использовать готовые картинки, нарисованные в любом 
графическом редакторе для 7Х 5рестат (Ай 5а1о, ТБе Ага$ П и др.), или даже 
позаимствовать объекты из фирменных заставок. Последнее обстоятельство 
открывает богатейшие возможности для творчества. О том, как работать со спрайт- 
генераторами, подробно рассказано в книге [2]. 

Амы вернемся к нашей игре и для начала скажем несколько слов о ее сюжете. 

Игровое пространство представляет собой горизонтальные цветные полосы, по 
которым слева направо двигаются 6 мышек (рис. 8.3). Скорость их движения 
задается генератором случайных чисел, поэтому предсказать заранее, какая из 
мышей первой придет к финишу, очень трудно. Но все же придется на какую-то из 
них сделать ставку, причем в полновесной валюте - таковы правила игры. 


Рис. 8.3. Игровое пространство программы БЕГА МЫШЕЙ. 


Программа 31. БЕГА МЫШЕЙ. 


10 ВАМООМТУЕ 058 58841: 60 ТО 20 
20 ВАМООМТУЕ: ГЕТ 0=300 


40 ОТМ Х(6) 

50 РАРЕН 0: ТАК 0: ВОНОЕН 0: (1$ 

60 РАРЕВ 3:.НОТ=3: . [ЕМ=13 

70 РОН №=0 ТО 5 

80 РАРЕН 7-М№: . ВОИ=М: . СОЕ=М*2 : . СЕЗ\: . ЗЕТУ 

90 РОТ №16+1, 174-(№8): ОВАМ 101,0: ОВАМ 0, -21:0ВАМ -101,0: ОВАМ 0, 21 
100 РАЦЗЕ 5: МЕХТ № 

110 РАТМТ АТ 6, 11; "ВЕСА МУЗНЕЛ” 

120 РАРЕН 0: ТАК 3 

130 РАТМТ АТ 19,0; ТАК 6; "0 МАЗ ";0; "$" 

140 РАТМТ АТ 21,0; ТАК 6; "ЭКОЕКО $ РОЗТАМТТЕ?" 
150 ТМРИТ "-->"; 5Т 

160 ТЕ $Т<1 ОА 5Т>0 ТНЕМ 60 ТО 150 
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170 ТЕТ 0=0-5Т 

180 ВЕЕР .1,0 

190 НЕМ ------------------ 

200. ВОМ=15:. С01=0:.Н@Т=8:. ЕМ=З2: . СЕ$\ 
210 РАТМТ АТ 21,0; ТМК 6; "МА КАКИТО МУЗН РОЗТАМТТЕ?" 
220 ТМРИТ "№:"; МУ 

230 ТЕ МУ<1 ОА М\У>6 ТНЕМ 60 ТО 220 

240 ВЕЕР .1,0 

250 ВЕМ ------------------ 

260 (15$ 

270 РАТМТ АТ 0, 11; "ВЕСА МУЗНЕ” 

280 ТАК 0:.С01=0:.Н@Т=2: . [Е№=З2 


290 РОН М=1 ТО 6 
300 РАТАТ АТ 2+(№»2), 31; 
310 РАРЕН М: . НОМ=2+№*2: . ЗЕТУ 


330 РИОТ 240,45: ОНАМ 0, 100 


370. ВОМ=2+М№»*2:.РТВЕ 


(9%) 
<о 
ЗЕ 
ры 


=0:.С01=10:.НОТ=2:. [ЕМ=13: . МРХ=1: . МСВМ 
=0:.НОТ=2: . [ЕМ=30 
А=ТМТ (АМ0»6+1) 
Х(А)=Х(В)+4 
=В*2+2:. 5В4\ 
Х(А)>205 ТНЕМ 60 ТО 500 
ТО 400 
500 ВЕМ -------- 
510 ТМК 5: РАРЕН 0 
520 РАТМТ АТ 18, 7; "РОВЕВТЬА МУЗН № ";А 
530 ТЕ МУ<>М ТНЕМ 60 ТО 590 
540 ЕОВ №=0 ТО 0+5Т*4 
550 РАТМТ АТ 20,0; "Ц МАЗ 5ТАЕО: "; №; "$" 
560 ВЕЕР .002, 50 
570 МЕХТ № 
580 ГЕТ 0=0+5Т*4 
590 РАЦЗЕ 300 
600 60 ТО 40 
10 - инициализация интерпретатора Газег Ваз1с; 
20 - восстановление генератора случайных чисел и задание начального капитала 
играющего; 
40 - задание массива, определяющего горизонтальные координаты мышей; 
50 - установка атрибутов экрана; 
60 - задание размеров окна для вывода названия игры; 
70...100 - на экране появляются 6 разноцветных окошек заданного размера, 
расположенные по диагонали как бы одно поверх другого; 
110 - вывод в последнее появившееся окошко названия игры; 
120...150 - информация о том, сколько у вас осталось денег и ввод суммы ставки; 
160 - проверка размера ставки: она должна быть больше [1 но не превышать 
размеров наличного капитала; 
170 - после того, как ставка сделана, она вычитается из ваших денег; 
180 - звуковой сигнал; 
200...240 - ввод в программу новых данных; 


У 
(<=) 
(<=) 
= 


>> пт мт <> > гп 
—— 
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О БН ОДНЕ 


У 
— 
(<=) 
е> н+ 
> п 


8. ГАЗЕК ВАЗ!С В ИГРОВЫХ ПРОГРАММАХ 119 


200 - очистка нижней части экрана; 

210 - вывод вопроса: «На какую мышь поставите? » 

220 - ход игрока: ввод номера дорожки, по которой побежит «ваша» мышка; 

230 - проверка условия, находится ли номер выбранной дорожки в пределах от 1 
о 6; 

240 - звуковой сигнал; 

250- - начало формирования игрового пространства; 

260 - очистка экрана; 

270 - вывод названия игры; 

280 - задание окна, охватывающего одну дорожку; 

290...320 - вывод на экран шести дорожек разного цвета, в конце которых 
ставятся их номера; 

330 - вычерчивание линии финиша; 

340 - задается спрайт мыши (номер 2) и начальная позиция по горизонтали; 

350 - запрет переноса атрибутов; 

360...380 - вывод спрайтов мышек в начале каждой из шести дорожек; 

390 - разрешение переноса атрибутов; 

400 - начало «бегов»; 

410 - задается окно, вмещающее название игры и осуществляется его 
вертикальный циклический скроллинг оператором \М/СКУ. Циклический - 
означает, что уходящее за пределы окна изображение появляется с другой его 
стороны. Величина скроллинга (в пикселях) задается графической переменной 
.МРХ. При положительном значении этой переменной окно движется вверх, а при 
отрицательном - вниз; 

420 - задание окна, охватывающего одну дорожку; 

430 - генерация случайного числа в пределах от 1 до б и присваивание его 
значения переменной К. Предполагается, что мышь с номером, выбранным в этой 
строке, будет в данный момент времени двигаться вперед; 

440 - координата Х выбранной случайным образом мыши увеличивается на 4, 
так как дальше ее изображение должно сдвигаться на 4 пикселя вправо; 

450 - задание переменной .КОМ/ в соответствии с положением на экране 
дорожки, по которой побежит выбранная мышь, и сдвиг окна с мышью на 4 
пикселя вправо; 

460 - проверяется, не лошла ли мышь до финишной линии. Если нет, то 
происходит переход на начало цикла «бегов». Если же мышь достигла финиша, то 
программа переходит на строку 510, начиная с которой выводятся на экран 
результаты игры: «Победила мышь М...», и в случае, если этот номер совпал с 
заданным вами, то ваш капиталу увеличивается на 4 ставки (строки 540...580) и игра 
начинается заново. 

То, о чем мы рассказали в этой главе, иллюстрирует лишь малую часть 
возможностей Газег Ваз1с. Добавим, что перемещать спрайты можно пятью 
способами. Интересные результаты при разработке игр дает наложение спрайтов, 
различные виды их преобразований, а также операции с пейзажем. С помощью 
Газег Ваз1с легко решается одна из непростых задач при создании динамических 
игр - определение факта «столкновения» спрайтов. Для этого достаточно вставить в 
вашу программу одну из функций ?5СУ или ?5СМ. 

Будем надеяться, что мы сумели заинтересовать вас этим замечательным 
диалектом Бейсика, который может оказать неоценимую помощь в создании 
игровых программ. 
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9. ПЕРВЫЕ ШАГИ К КОДОВОЙ ПРОГРАММЕ 


'Тог, кто уже пробовал свои силы в написании программ на Бейсике, наверняка 
заметил, что спрайты передвигаются по экрану не слишком быстро. И если в 
логических играх типа ОХОТА НА ЛИС или МАКСИТ этот недостаток почти 
незаметен, то в более динамичных ситуациях он может довести игрока до белого 
каления. Что же делать? 

В фирменных программах с медлительностью спрайтов борются довольно 
просто: на Бейсике пишется только загрузчик, а все остальное - в машинных кодах. 
Олнако то, что хорошо для профессионалов, не всегла подходит любителям. Даже 
если вы разберетесь со всеми тонкостями работы и не растопчете ногами свой 
Боте сотшрщег в процессе отладки программы, то время, потраченное на 
написание программы в кодах, явно не будет соответствовать результату. 

Есть и другие способы заставить спрайты двигаться побыстрее. Самый легкий 
из них - использование готовых кодовых подпрограмм из пакетов 5арегсоае и Мем 
эирегсоде. С их помощью можно добиться различных видов перемещения 
(скроллинга) экрана, множества звуковых эффектов, быстрой смены экранов 
(причем самыми разными способами), изменения цветовых атрибутов экрана и 
многого, многого другого. Существует множество версий Фирегсоае. Мы 
пользовались эарегсоде версии П (см. [5]). 


Программа $ирегсоде 


После загрузки пакета на экране появится яркая заставка с названием, а также 
информация о том, что пакет разбит на две части, каждая из которых содержит 76 
подпрограмм. Нажав клавищу | (или 2), загрузим 

требуемую половину, после чего можно обратиться к ее меню с помощью 
клавиши [. Меню состоит из строк типа 

42 ГАЗЕВ 2АР....... 63950 

состоящих из номера подпрограммы, ее названия и начального адреса, с 
которого подпрограмма должна запускаться. 

В нижней части экрана выводится информация о действиях, которые вы 
можете выполнить. 

р -РЕМО - демонстрация действия подпрограмм; 

Р - РАПУТЕК - вывод на принтер копии экрана; 

Г- ПХГЕХ - вызов на экран списка подпрограмм; 

Г, - ГОСАТЕ - вывод на экран инструкции по перемешению подпрограмм; 

- ЛМР РАСЕЯ - переход к нужной странице списка; 

С - СОМТИМОИЕ - переход к следующей странице; 

5 - ОАУЕ - вызов на экран инструкции по записи подпрограмм; 

О - ОПТ - выход из программы 5ирегсо4е, причем в ОЗУ компьютера она будет 
сохранена; 

М - МОМВЕК - выбор номера подпрограммы. 

В режиме меню нажатие любой цифровой клавиши устанавливает режим 
МИМВЕК, позволяющий набрать номер одной из имеющихся подпрограмм и 
познакомиться с подробной инструкцией о ее работе и размещении в памяти. Если 
вы захотите посмотреть подпрограмму в действии, нажмите клавишу Е (ЕХАМРГЕ), 
а для записи ее на ленту или дискету - Т (ТАРЕ). Имя, под которым будет записана 
кодовая подпрограмма, можно установить самому или же использовать 
фирменное. В последнем случае достаточно нажать ЕЁщег. 
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Перейдем к описанию программы игры ИГРАЛЬНЫЙ АВТОМАТ, для работы 
которой следует переписать из пакета эирегсо4е на ленту или дискету слелдующие 
кодовые подпрограммы: 

1 - РТХЕЕ УР-5СВОГЕ 22 - РТХЕЁ ВОХ ГЕРТ- 5СВОЕ 
42 - ГАЗЕВ 7АР 
43 - ОМТ-МОТЕ $00№0-СЕМ 
44 - ОТАГ-МТЕ 
69 - ВОНОЕН ЕРЕЕСТ$ 

Заметим, что на ленте они должны располагаться после программы игры. 
Несколько слов о самой игре. После загрузки программы и всех подпрограмм, на 
экране появится игровое поле, включающее в себя следующие элементы (рис. 9.1): 

- три окна, в которых будут появляться различные цифры, причем 
выигрышными считаются только те их комбинации, где совпадают две. или три 
цифры (всего используются семь цифр - 1, 2, ..., 7); 


Рис. 9.1. Игра ИГРАЛЬНЫЙ АВТОМАТ. 

продолжайте вводить цифры, пока не заполнится весь прямоугольник. Тогда 
число «сбросится», и можно будет вновь делать ставку; 

- левый нижний прямоугольник синего цвета, где указывается размер вашего 
капитала в банке. Начальная сумма равна 100$; 

- слева все ваши доходы символически представлены в виде столбика золотых 
монет достоинством в 50$ каждая. Если случится так, что вы все проиграете, 
программа издаст протяжный звук, и игра начнется вновь. Если же вам удастся 
набрать 20 монет (1000$), то об этом радостно просигнализирует вначале 
изменение цвета бордюра, а затем звуковой сигнал, после чего игра закончится, и 
можно будет попытать счастья еще раз; 

- под тремя цифровыми окнами находится прорезь, откуда посыплются 
выигранные монеты по 50$ в том случае, если ставка была удачной. 

А теперь скажем о том, как устанавливается выигрыш. Если числовая 
комбинация содержит 2 единицы, 2 двойки, 2 тройки и т. д., то ваша ставка 
умножается соответственно на 1, 2, Зит. д. Если же эта комбинация состоит только 
из единиц, двоек, троек, то ставка умножается соответственно на 1, 2, 3, а затем 
еще на 2. В случае удачной игры, сумма выигрыша появляется в левом верхнем углу 
игрового поля одновременно с монетой и сопровождается звуковым сигналом. 

Программа 32. ИГРАЛЬНЫЙ АВТОМАТ. 

ГЕАЯ 58570 
ВОВОЕВ 0: РАРЕВ 0: ТМК 7 
СЕ$ 
РЕТМТ АТ 9, 10; "Р1Леазе ма1т" 
23 РАТМТ АТ 11, 8; "1оад1п9 ргодгат” 
ВЕМ - 10а соде ргодгат -- 

Е 

Т 

Р 


К 7: РАТАТ АТ 13, 12; "Соде ";п 
АТАТ АТ 0, 0; 
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Е 2-Е ГЕ 


0 20 
п 


+ > 
1 > 
И 


пе пт > >> м! мт 4 <> 
| >< | 
— 
[®Ъ] 
= 
рая 
М> 
ЕР 


П 
а$(3)="ПИПППП1993 


РОВ п=1 ТО 3 


9 
ре) 
+ 
. 


РОВ п=1 ТО 16 
ВАМООМТТЕ 058 64001 


ЕХТ п 
ГОН п=1 ТО 56 
ААМООМТУЕ ЦЗН 64001 


5 
[> 
= 
Пт 


63951, 10 
ААМООМТУЕ 0ЗН 63950 


РОКЕ 64670, 28 


А 

СЕ 

ГОН п=0 ТО 20 ТЕР 3 
ГОН м=0 ТО 30 ТЕР 3 
о 

РАТМТ АТ п+1, т; "Еб” 
ЕХТ м 

ЕХТ п 

АПЗЕ 80: ТМК 7: (15 


ГОТ 40,0: ОВАМ 0, 175 


Р 

р 

РАТМТ АТ 0,7; ТАК 0;" 
Р 

ГОН п=19 ТО 20 

Р 


‚: Кб 


Кб: РАТАМТ АТ п, п; “ОЕ” 


, 


АТАТ АТ п, 1; ТАК 6; "АВС" 


1 
1 
АТ б+т, 7; "ППППППП” 
АТ 11+п, 7; "ППППЛЛГ” 


9(3): 01М с(3): 01М а$(3, 16) 

$11=2: [ЕТ $1=2: ЕТ п0=0: [ЕТ гп=0 
Т “-САМЕ АОТОМАТ-” 

"бапкЕ-Ретегзбиго” 

‚0; ТАК ТАТ (А№О»7+1); ТАВ 30 
( 
[МТ АТ 8,8; ТАК 3; "ПП"; ТАК 5; "ПАППАПППЛААИ”, ТМК 3; ”” 
РАТМТ АТ 10,8; ТАК 6; "ПППАИ”; ТАК 2;” "; ТАК 6; "ПАППППИ” 
АТ 12, 14; ТАК 4; "ПППП” 


Т 21,8; Т\К 0; а$(п) 


ГОТ 0,0: БВАМ 0, 175: ОВАМ 255,0: ОВАМ 0, -175:ОВАМ -255,0 
", РАРЕВ 5; ТМК 0;ТАВ 30;РАРЕВ 0;” ” 
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475 РАТМТ АТ 8,13; "$" 

480 РАТМТ АТ 13, 8; "100ПП$" 

482 РАРЕВ 0 

485 РИОТ 120,40: ОВАм 0,96: ОВАМ 96,0: ОВАМ 0, -96: БВАМ -96,0 

490 РИОТ 216, 112: ОВАМ 8,0: ОВАМ 0, -32: БВАМ 3,0:ОВАМ 0,35: ОВАМ -11,0 
495 ЕОВ п=4 ТО 1 ЭТЕР -1 

500 СТВСЕЕ 225, 76, п 

505 МЕХТ п 

515 РИОТ 135, 84: ОВАМ 0,29: ОВАМ 20,0: ОВАМ 0, -29: ОВАМ -20,0 

520 РИОТ 159,84: БВАМ 0,29: ОВАМ 20,0: ОВАМ 0, -29:ВВАМ -20,0 

525 РОТ 183, 84: ОВАМ 0,29: ОВАМ 20,0: ОВАМ 0, -29:ВВАМ -20,0 

530 РИОТ 137,56: ВВАМ 64,0: ОВАМ 0,5: ОВАМ -64, 0:ОВАМ 0, -5 

532 ТАК 5 

535 ЕОВ п=17 ТО 23 ЭТЕР 3 

540 ТЕТ х=п: ЕТ у=8: 60 508 1300 

545 МЕХТ п 

550 1ЕТ 9$="РгодгатПП”САМЕ АИТОМАТ”. ППППАИЕВОг Кари1тзеу1сй Тдог, ППЗа1и{- 
Ретегзбигд, ПП1993. ППзтаг*-ЕМТЕН, ППППЕпа от дате-Е. ППППАВС- 50$, ППОЕ- 50$. ПИПППАППП” 
552 ЕТ {е=0: [ЕТ {е1=0 

553 ЕТ ${=2: [ЕТ $11=2: [ЕТ бапк=100 

554 ВЕМ ------------------ 

555 1ЕТ 1$="" 

556 РЕТМТ АТ 2, 10; "ПП”;АТ 3, 10; "ПП"; АТ 5, 9; "ПППП” 

557 ТЕ бапк=0 ТНЕК ОКЕ 64648, 150: РОКЕ 64649, 70:РОКЕ 64651, 100: РОКЕ 64670, 28: 
ААМООМТЕ ПЗА 64647: 60 ТО 400 

558 ТЕ рапк>=1000 ТНЕМ РОКЕ 60029, 18: РОКЕ 60020, 1:РОКЕ 60006, 70: ВАМООМТУЕ 038 
60000: РОКЕ 63951,10: ВАМООМТУЕ Ц5Н 63950: 60 ТО 400 

559 РЕТМТ АТ 8,8; РАРЕН 1; "ППППП” 

560 РАТМТ АТ 7,7; ЕЁАЗН 1; РАРЕВ 1; ТАК 0; "ППППППП”; АТ 8,7; " ";АТ 8, 13; "$"; АТ 
9, 7, "ППАПАПИ” 

565 ГЕТ е$=ТМКЕУ$ 

566 60 508 1500 

567 ТЕ е$="е” ОВ е$="Е" ТНЕМ 60 ТО 400 

570 ТЕ е$="" ТНЕМ 60 ТО 565 

575 ТЕ С00Е е$=13 ТНЕМ 60 ТО 600 

580 ТЕ С00Е е$<48 ОВ С00Е е$>57 ТНЕМ @0 ТО 565 

585 1ЕТ +1$=Е$+е$: РАТМТ АТ 8,8; РАРЕН 1; ТМК 6; #$ 

586 ВЕЕР .1, 15 

587 ТЕ ГЕМ #$>4 ТНЕМ 60 ТО 600 

590 60 ТО 565 

600 ТЕ Е$=”" ТНЕМ 00 ТО 558 

605 1ЕТ 9=\МАЕ +#$ 

610 ТЕ 9<1 ОВ 9>Бапк ТНЕМ ВЕЕР .3,5: ВЕЕР .3,0: 1ЕТ 1$=""; 60 ТО 559 
612 ГЕТ рапк=Бапк-а 

613 РАТМТ АТ 13,8; РАРЕВ 1; ТАК 6; "ПППППФ”; АТ 13, 8; Бапк 

615 РОВ п=0 ТО 20 ТЕР 2: ВЕЕР .01,п: МЕХТ п 

620 РАТМТ АТ 7,7; РАРЕВ 1; “ПППААПИ” 

625 РАТМТ АТ 9,7; РАРЕВ 1; “ППАПППП” 

630 РАТМТ АТ 8,7; РАРЕВ 1;” “;АТ 8,13; ТМК 6; "$" 

632 ВЕМ --------------------- 

640 РОВ п=1 ТО 12 

641 РОВ м=1 ТО 3 

642 [ЕТ гп=гп+1: ТЕ гп>150 ТНЕМ [ЕТ гп=1 

643 ТЕТ а=\МАЕ "$ (гп) 

646 ТЕТ х=14+т*3: ТМК 5: [ЕТ у=8: 60 50В 950+а*50 

647 ВЕЕР .0005,55: ВЕЕР .0004, 40 

648 ТЕ п>7 ТНЕМ РАЦЗЕ п-6 

649 МЕХТ м 

650 МЕХТ п 

652 ВЕМ -------------- 
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653 РОН п=1 103 

655 60 508 9900 

660 [ЕТ а1=ТМТ (гпд*141) 

665 ТЕ а1<36 ТНЕМ 1ЕТ а=1: 60 ТО 700 

667 ТЕ а1>35 АМО а1<66 ТНЕМ (ЕТ а=2: 60 ТО 700 
669 ТЕ а1>65 АМО а1<91 ТНЕМ (ЕТ а=3: 60 ТО 700 
670 ТЕ а1>90 АМО а1<111 ТНЕМ (ЕТ а=4: 60 ТО 700 
672 ТЕ а1>110 АМО а1<126 ТНЕМ (ЕТ а=5: 60 ТО 700 
674 ТЕ а1>125 АМО а1<136 ТНЕМ (ЕТ а=6: 60 ТО 700 
676 ТЕ а1>135 ТНЕМ 1ЕТ а=7: 60 ТО 700 

680 ВЕМ --------- 

700 ГЕТ х=14+п*3: ЕТ у=8: 60 ЦВ 950+а»*50 
705 ВЕЕР .0005,55: ВЕЕР .0004, 40 

707 60 508 1500 

710 (ЕТ а(п)=а 

720 МЕХТ п 

725 60 508 1600 

999 5ТОР 

1000 ВЕМ ----1---- 

1010 РАТМТ АТ у, х; "4: 05/7" 

1015 РАТМТ АТ у+1,х; "05/5" 

1020 РЕТМТ АТ у+2,х; "4; (5/1 

1025 ВЕТУАМ 

1050 ВЕМ ----2---- 

1055 РАТМТ АТ у,х; "4; 5/3" 

1060 РВТМТ АТ у+1,х; "4; 05/2" 

1065 РВТМТ АТ у+2,х; "5; 05/3" 

1070 ВЕТУАМ 

1100 АЕМ ----3---- 

1110 РАТМТ АТ у, х; "4; 65/3 

1115 РАТМТ АТ у+1,х;" 05/2 

1120 РВТМТ АТ у+2,х; "4; 05/2 

1130 ВЕТИУАМ 

1150 ВЕМ ----4---- 

1160 РАТМТ АТ у,х; "4; 4` 

1170 РАТМТ АТ у+1,х; "5; 05/2" 

1180 РВТМТ АТ у+2,х;” 5” 

1190 ВЕТИАМ 

1200 ВЕМ ----5---- 

1210 РАТМТ АТ у,х; "4; 05/3" 

1220 РВТМТ АТ у+1,х; "5; 05/3" 

1230 РЕТМТ АТ у+2,х; "4; 05/2" 

1240 ВЕТУВЮ 

1250 НЕМ ----6---- 

1260 РАТМТ АТ у,х; "4:05/3" 

1270 РЕТМТ АТ у+1,х; "5; 05/3" 

1280 РВТМТ АТ у+2,х; "5; 05/2" 

1290 ВЕТУАМ 

1300 ВЕМ ----7---- 

1310 РЕТМТ АТ у, х; "4; 05/3" 

1320 РАТМТ АТ у+1,х; "5" 

1330 РВТАТ АТ у+2,х;” 5” 

1340 ВЕТУВМ 

1400 ВЕМ -- Сгарй1с$ -- 

1410 РОВ п=0 ТО 55 

1420 ВЕАВ 5 

1430 РОКЕ 058 "А”+п, $ 

1440 МЕХТ п 

1450 ВЕТУВМ 

1460 ВАТА 0,0,0, 255, 150, 150, 150, 255 


9. ПЕРВЫЕ ШАГИ К КОДОВОЙ ПРОГРАММЕ 


1465 
1470 


ОАТА 0,0,0, 255, 239, 239, 239, 255 
АТА 0,0,0, 255, 105, 105, 105, 255 
ВАТА ОЭ, 125, 218,215 
ОАТА 224, 88, 188, 86, 238, 215, 183, 127 


ВАТА 238, 213, 123, 116, 63, 63, 12,3 

ОАТА 191, 189, 185, 122, 242, 196, 24, 224 

ВЕМ ------------------=== 

ВЕМ 

ТЕ 1е1=8 ТНЕМ ГЕТ 1е1=0: [ЕТ 1е=е+1: РАТМТ АТ 0, 30: РАРЕВ 0: ТМК 0: 9$(1е): ТЕ 
фе>(1ЕМ 9$)-1 ТНЕМ ЕТ +е=1 

ГЕТ +е1=1е1+1 

РОКЕ 58679, 30: РОКЕ 58680, 64: РОКЕ 58682, 24:РОКЕ 58681, 8: ВАМООМТУЕ 058 58571 

ВЕТУВ 

ВЕМ ---- РНОТОВАЕ? --- 

ТЕ 9(1)=0(2) АМО 9(2)=9(3) ТНЕМ ГЕТ му=а(1)*4*2: 60 ТО 1640 

ТЕ 9(1)=9(2) ОН 9(2)=9(3) ТНЕМ ЕТ му=а(2)*4:60 ТО 1640 

ТЕ 9(1)=9(3) ТНЕМ ЕЕТ му=4(1)*9: 60 ТО 1640 

0 ТО 2030 

ВЕМ ----- 

РОКЕ 64702, 200: РОКЕ 64693,30: РОКЕ 64682, 200: ВАМООМТУЕ 158 64675 

ГЕТ Ко5=ТМТ (му/50) 

РАТМТ АТ 2,10; ТАК 6; "БЕ"; АТ 3, 10; "Ра": АТ 5,9; ТАК 7; му: РАУЗЕ 10 

ТМК 6: ОМЕН 1 

РОВ п=1 ТО Ко5 

РОН п=14 ТО 19 

РАТМТ АТ п, 20: "БЕ" 


РВТМТ АТ т+1, 20; "Е" 

РАУЗЕ 5 

РАТМТ АТ м, 20; “ОЕ” 
РВТМТ АТ т+1, 20; "Е" 
ЕХТ т 

ВЕЕР .005,50: ВЕЕР .005,45: ВЕЕР .005,40: РАЦЗЕ 5 
ЕХТ п 

О\УЕВ 0 

[ЕТ бапк=бапк+му 

РАТМТ АТ 13,8; РАРЕВ 1; ТМК 6; “ПППППФ” 

РАТМТ АТ 13,8; РАРЕН 1; ТМК 6; Бапк 

ВЕМ ----------- 

ЕТ 5{1=1№Т (рбапк/50) 

ТЕ $11>${ ТНЕМ 1ЕТ $=1: 60 Т0 2047 

ТЕ $11<$1{ ТНЕМ ТЕТ $=-1: 60 ТО 2047 


ТЕ $=1 ТНЕМ (ЕТ 9=21 

РАТМТ АТ 9-31, 1; "АВС": ВЕЕР .1,20-(9-31): РАЦЗЕ 10 
ТЕ “< ТНЕМ 60 ТО 2050 
О\ЕВ 0 

ЕЕТ $1=$11 

60 ТО 555 

ТОР 

ВЕМ -- ВАО --- 

ГЕТ +1$=""; ЕЕТ г$="” 

РОН п=1 ТО 200 

ГЕТ а=ТмМТ (В№0*7+1) 

ЕТ +$=5ТА$ а 

ГЕТ г$=г$+$ 

МЕХТ п 

ВЕТИВМ 
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9899 ВЕМ ----В№МО депегатог---- 

9900 ТЕТ по=по+1. 3415926: ТЕ по>198 ТНЕМ ЕЕТ по=по-194. 768627 
9902 ТЕТ п1=ТМТ по 

9905 ЕТ гпа1=МАЁ (г$(п1)+г$(п1+1)+г$(п1+2)) 

9910 ТЕТ гпд=гпа1/783 

9920 ВЕТИВМ 

5 - установка системной переменной КАМТОР. Алрес 58570 определяется самой 
нижней границей кодовых подпрограмм (см. строку 1520); 

10 - установка атрибутов экрана; 

11 - очистка экрана; 

22, 23 - вывод текста, предупреждающего о том, что сейчас с ленты 
магнитофона будут загружаться кодовые блоки; 

30...60 - этот фрагмент программы обеспечивает последовательную загрузку с 
ленты шести кодовых подпрограмм. При этом строка 40 информирует вас о том, 
какой именно блок читается в данный момент, ‚а строка 45 устанавливает 
координаты слов Вуез:, которые появляются в процессе загрузки. Эти слова 
пишутся черным цветом по черному фону; 

61 - экран очищается, выводится сообщение «Пожалуйста, подождите!»; 

62 - обращение к подпрограмме, которая генерирует случайную 
последовательность из 200 чисел, необходимую для выработки комбинаций в 
окнах. Непривычный вид подпрограммы объясняется тем, что при загрузке 
кодовых подпрограмм нарушается нормальная работа ЕЮМО-генератора в 
компьютере, но вто же время без случайных чисел обойтись нельзя; 

63 - обращение к подпрограмме, формирующей графические символы: для 
монеты, стоящей на ребре - 4, для лежащей монеты - 3; 

90 - задание рабочих массивов; 

91...380 - эта часть программы выполняет функции заставки, обеспечивая 
медленное перемещение текста снизу вверх с использованием звуковых эффектов. 
Здесь применяются три кодовые подпрограммы, о которых будет сказано чуть 
позже; 

106...108 - устанавливаются номера ПМК, которые начнут действовать при 
движении текста через определенные знакоместа, окрашивая его в 
переливающиеся тона; 

200...250 - в нижней части экрана черным цветом вводятся три надписи, затем во 
внутреннем цикле они подвергаются вертикальному перемещению (скроллингу) на 
16 пикселей. Строка 230 включает подпрограмму вертикального скроллинга; 

260...270 - три надписи медленно перемещаются вверх на 56 пикселей, 
последовательно окрашиваясь в цвета, установленные ранее в строках 106...108; 

340 - включение кодовой подпрограммы «трель»; 

342...346 - подготовка и включение кодовой подпрограммы, обеспечивающей 
звуковой эффект «глиссандо»; 

350...370 - после короткой остановки в центре экрана три надписи продолжают 
медленное перемещение (скроллинг) вверх и в конце концов уходят за пределы 
экрана. Движение сопровождается окрашиванием строк текста (как в 260...270) 
разными цветами; 

402...407 - заполнение всего экрана монетами (второй кадр заставки); 

410...545 - на экран выводится изображение игрового поля, то есть 
устанавливаются окна, рисуются синие прямоугольники, прорезь для выпуска 
монет, а также выводится изображение двух монет «начального капитала» игрока в 
левой части поля. Подпрограмма 1300...1340 рисует три семерки в окнах, где затем 
будут появляться цифровые комбинации; 
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550 - задание текста, который будет выводиться в верхней части экрана в виде 
бегущей строки; 

553 - задание начальных значений некоторых переменных; 

557 - если в результате игры банк окажется пустым (Бапк = 0), то включается 
кодовая подпрограмма «глиссандо», и программа переходит на начало игры; 

558 - если действия игрока были улачными и в банке оказалось более 1000$, то 
последовательно включатся кодовые подпрограммы «бордюр» и «трель», а затем 
произойдет переход на начало игры; 

559 - если оба предыдущих условия не выполняются, то стирается надпись со 
ставкой; 

560 - изображение синего прямоугольника, куда заносятся ставки, начинает 
«мигать»; 

565...630 - эти строки обеспечивают ввод ставки, а подпрограмма 1500...1530 
перемещает окно в верхней части экрана (вместе с текстом); 

632...650 - вывод случайных комбинаций цифр, созлающих иллюзию вращения 
дисков игрального автомата; 

652...720 - эта часть программы фиксирует в окнах автомата последнюю 
комбинацию цифр, которая и определяет, выиграли вы или проиграли. 
Последовательность условий определяет, насколько часто могут появляться 
единицы, двойки, тройки, ит. д. до семерки. Предусмотрено, что единицы и двойки 
выпадают чаще, а семерки - реже; 

725 - безусловный переход на строку 1600, где начинается подпрограмма 
проверки комбинации цифр для определения выигрыша или проигрыша; 

1000...1340 - подпрограмма печати цифр 1, 2, ...7; 

1400... 1490 - подпрограмма ввода графических символов, формирующих 
монеты; 

1500... 1530 - подпрограмма бегущей строки, использующая кодовый блок 
скроллинга окна влево; 

1600...1620 - проверка выпавшей числовой комбинации - есть выигрыш или нет. 
Проверяются все четыре возможных варианта совпадений: 

- первой и второй цифр; 

- первой и третьей; 

- второй и третьей; 

- первой, второй и третьей. 

Например, выигрыши принесут 116, 242, 433 или 222 доллара, а если все цифры 
окажутся разными, произойдет переход к строке 2030, откуда начинается 
подпрограмма, уменьшающая количество монет в. левом столбике; 

1640... 1645 - формирование звукового сигнала; 

1650...2010 - определяется, сколько монет должно быть выброшено в виде 
выигрыша. В левом верхнем углу показывается сумма выигрыша и рисуется 
монета; 

2020 - кимеющейся у вас сумме добавляется выигрыш; 

2030...2090 - изменение количества монет в левом столбике; 

9000 - подпрограмма, вырабатывающая случайные числа для формирования 
комбинаций в окнах игрового автомата. 


Применение Меи/ $ирегсоде 

Пакет Мем 5арегсой4е создан по образу и подобию 5ирегсо4е и содержит 50 
подпрограмм в машинных кодах, большинство из которых не имеет аналогов в 
эпрегсоае. 
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После загрузки вы увидите список процедур (меню), из 50 строк, каждая из 

которых вызывает определенную подпрограмму и имеет вид: 
33 АПВ С00Е 48976, 29 

где слева направо расположены: номер кодовой подпрограммы, ее название, 
слово СОПЕ, означающее принадлежность к кодовому типу, 

начальный адрес и длина программы в байтах. Нижняя часть меню даст 
информацию об управлении строками. 

Выбор нужной строки осуществляется с помощью стрелки курсора, 
перемещаемой клавишами б (вниз) и 7 (вверх), а для того, чтобы воспользоваться 
процедурой, следует нажать Ещег. При этом на экран будет выведена краткая 
инструкция о выбранной подпрограмме. Нажатие клавиши Р (РЕМО) позволит 
посмотреть, как действует подпрограмма, а 5 (ЗАУЕ) - записать ее на ленту или 
дискету. Возврат в меню происходит при нажатии клавиши Т. 


Игровая программа «.Звездная война» 


Покажем теперь, как можно использовать кодовые подпрограммы на примере 
игры «Звездная война». Но прежде, чем мы начнем говорить об игре, перепишем из 
комплекта МЕ\/ 5ирегсо4е на магнитную ленту или дискету четыре следующих 
подпрограммы: ШТЕВУ, РУМЛЕК2, РУМЛЕКЗ и ЕККАМ 2. О том, что они из себя 
представляют и какие функции выполняют в игре, мы расскажем при описании 
строк программы, а сейчас несколько слов о самой программе и о том, что 
произойдет после ее запуска. 

Загрузив программу и выполнив оператор КОМ, вы сразу увидите действие 
одной из кодовых подпрограмм: на экране появятся буквы необычных размеров и 
форм. Налюбовавшись названием игры, нажмите любую клавишу - раздастся 
характерный звук летящего снаряда и затем взрыва. Очень эффектно! Далее 
следует традиционная информация об управляющих клавишах и, наконец, 
возникает звездное небо, на фоне которого передвигается космический корабль 
противника. Здесь же окажется перекрестье прицела вашего лазера (рис. 9.2). 
Чтобы убедиться в его исправности, нажмите М, появятся два грозных луча, и вы 
услышите звук выстрела, созданный третьей кодовой подпрограммой. 


Рис. 9.2. Игра ЗВЕЗДНАЯ ВОЙНА. 

Теперь возникает типичная игровая ситуация: вы должны, передвигая прицел, 
совместить его с вражеским кораблем и нажать М. При попадании раздастся 
грохот взрыва, а на экране возникнет хаотическая картинка, созданная кодовой 
подпрограммой ЕКВАМ 2. После этого игра возвращается к своему началу. 

Программа 33. ЗВЕЗДНАЯ ВОЙНА. 
10 СЕЕАВ 46945 
12 РОКЕ 23658, 8 
15 ВОНОЕН 0: РАРЕН 0: ТМК 7 
20 (15 
30 60 58 7000 
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40 60 508 7100 

50 (15$ 

60 (ЕТ у=0: (ЕТ хз=3: 1ЕТ уз=20: [ЕТ 9$="5РАСЕ МАВ”:ТМК 2: ВАТОНТ 1: 60 $08 7200 
70 (ЕТ у=160: (ЕТ хз=1: ЕЕТ уз=2: ЕТ 9$="РВЕЗ$ АМУ КЕУ ТО УТАВТ": ТМК 6: 60 508 7200 
80 ТЕ ТМКЕУ$=”” ТНЕМ 60 ТО 80 

90 ВВТСНТ 0 

100 ВАМООМТУЕ ЗВ 59366 

110 ВОВОЕВ 0 

120 ВЕМ ------------- 

125 СЕ$ 

130 ЕЕТ 9$="0-ЕЕРТПИПР-ВТЕНТ": ЕЕТ у=10: [ЕТ хз=2:1ЕТ уз=5: 60 508 7200 

140 ТЕТ 9$="0-ОРПППИПА-ВОММ ”: (ЕТ у=60: [ЕТ хз=2:1ЕТ уз=5: 60 5ЦВ 7200 

150 ГЕТ 9$="М-ЕТВЕ": ТАК 2: (ЕТ у=110: [ЕТ х$=4: [ЕТ уз=5:60 ЗВ 7200 

160 ТЕ ТМКЕУ$="” ТНЕМ 60 ТО 160 

170 ВЕМ ----------- 

172 ТЕТ $=0: ГЕТ $1=0 

175 ТАК 7: (15 : ОМЕВ 1 

176 РОН №=1 ТО 200: РЕОТ В№*»255, В№О*175: МЕХТ № 


177 РАТМТ АТ 10, 15; Е” 

179 ТМК 3: РИОТ 0,0: БВАИ 0, 175: ОВАМ 255,0: ОВАМ 0, -175: ОВАМ -255,0 
180 ТЕТ 7х=ТМТ (А№МО»30): [ЕТ 27у=ТАТ (В№0»20) 

185 ТЕТ 7х1=7х: [ЕТ 7У1=7у 

186 РВТАМТ АТ 2у, 2х; "АВ": РАТМТ АТ 2у+1, 2х; "СО" 

190 ЕТ рх=15: ЕЕТ ру=10 

195 ЕТ рх1=рх: ЕТ ру1=ру 

197 (ЕТ 1=0 

200 ТЕ Т\КЕУ$="Р” ТНЕМ ЁЕТ рх=рх+1: 60 ТО 300 


210 ТЕ ТМКЕУ$="0” ТНЕМ ЕЕТ рх=рх-1: 60 ТО 300 


220 ТЕ Т\КЕУ$=" 0” ТНЕМ ВЕТ ру=ру-1: 60 ТО 300 

230 ТЕ Т\КЕУ$="А" ТНЕМ ЁЕТ ру=ру+1: 60 ТО 300 

240 ТЕ Т\КЕУ$="М" ТНЕМ ГЕТ +=1: 60 ТО 300 

250 60 ТО 400 

300 ВЕМ ------------ 

310 ТЕ рх<0 ОВ рх>31 ОН ру<0 ОН ру>21 ТНЕМ ЁЕТ рх=рх1:1ЕТ ру=ру1: 60 ТО 400 
315 ТК 7 

320 РВТМТ АТ ру], рх1; "Е" 

330 ТМК 5: РЕТИТ АТ ру, рх; "Е" 

340 ТЕТ рх1=рх: [ЕТ ру1=ру 


345 ТЕ 1=1 ТНЕМ ТМК 2: РТ 0,0:08АМ рх»8+4, 172-(ру*8): РШОТ 255,0: ОВАМ -(253- 
рх*8), 172-(ру*8): ВАМООМТУЕ Ц$Н 59342: ТМК 7: РОТ 0,0: ОВАМ рх»8+4, 172-(ру»8): РШОТ 
255,0: ОВАМ -(253-рх*8), 172-(ру»8) 

350 ТЕ Т=1 АМО ((7х=рх АМО ту=ру) ОВ (рх=7х+1 АМО ру=7у) ОВ (рх=7х АМО ру=7у+1) ОВ 
(0х=7х+1 АМО ру=7у+1)) ТНЕМ ААМООМТУЕ 058 59366: @0 ТО 1000 

360 ТЕ Т=1 ТНЕМ (ЕТ 1=0 


400 ВЕМ ------------ 

410 ТЕ з=$й ТНЕМ [ЕТ $=0: [ЕТ ЗП=ТАТ (В№*5+4): ТЕТ ргх=5@№М (В№*2-1): [ЕТ ргу=$ем 
(В№0*2-1) 

420 ТЕТ $=$+1 

422 |ЕТ хх=их+ргх: [ЕТ ху=ху+ргу 

425 ТЕ 7х<1 ОН 7х>29 ОН 2у<1 ОН 2у>19 ТНЕМ 1ЕТ 7х=7х1: [ЕТ 2у=7у1: 60 ТО 200 
440 ТМК 7 

450 РАТМТ АТ 7У1, 7х1; ПП"АВ”" 

460 РАТМТ АТ 7у1+1, 7х1; "СО" 

470 ТМК 6: РАТАТ АТ 2у, 2х; “АВ” 

480 РАТМТ АТ 2у+1, 2х; "СО" 

490 [ЕТ 7х1=7х: [ЕТ 7У1=7у 

500 60 ТО 200 

1000 ВЕМ ------------ 

1010 РАРЕН 0: ВОВОЕВ 0: (1$ 

1015 РОЛ М=1 ТО 10 
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1020 РОН №=1 ТО 250 5ТЕР 40: РОКЕ 57399, №: ВАМООМТУЕ 058 57392: МЕХТ № 
1030 МЕХТ М 

1040 60 ТО 50 

7000 ВЕМ -бгарН1с$- 

7010 РОВ п=0 ТО 39 

7020 ВЕАВ $ 

7030 РОКЕ 15Н “А”+п, $ 

7040 МЕХТ п 


7050 ВАТА 0, 64, 64, 64, 35, 39, 39, 30 
7060 ВАТА 0,2,2,2, 196, 228, 228, 120 
7070 ВАТА 30, 39, 39, 35, 64, 64, 64,0 
7080 ВАТА 120, 228, 228, 196,2,2 

7090 ВАТА 16, 16, 16, 238, 16, 16, 
7095 ВЕТИВМ 
7100 ВЕМ -- ГОАБ соде --- 
7110 ТМК 0: РАРЕВ 0: РАТМТ АТ 0,0: 
7120 1ОАБВ ""СОБЕ 
7122 ТАК 7: 1ЕТ 9$="[ОАБТМа": ЕЕТ у=50: 1ЕТ хз=2: [ЕТ уз=10: 60 5ЦВ 7200 

7123 [ЕТ 9$="РЕЕАЗЕ МАТТ": 1ЕТ у=130: (ЕТ хз=2: [ЕТ уз=1:ТАК 3: 60 $08 7200 


ь20 
16,0 


7130 ТК 0: РВТАТ АТ 0,0; : [ОАО ""С00Е 
7140 РАТМТ АТ 0,6; : [ОАБ ""СОБЕ 

7145 РАТАТ АТ 0,0; : [ОАБ ""СОБЕ 

7150 НЕТОВМ 

7200 ВЕМ -- 111тегу --- 

7210 [ЕТ х=(256-хз»8*1ЕМ 9$) /2 

7220 (ЕТ а=23306: РОКЕ а, х 

7230 РОКЕ а+1,у: РОКЕ а+2, хз 

7240 РОКЕ а+3, уз: РОКЕ а+4, 8 


7250 ГЕТ а=а+4 
7260 РОВ 1=1 ТО ТЕМ 9$ 
7270 РОКЕ а+1, С00Е 9$(1) 

7280 МЕХТ 1 

7290 РОКЕ а+1,255 

7295 ВАМООМТЕ 058 59033 

7296 ВЕТИВМ 

7300 ВЕМ --- 

10. - установка КАМТОР; 

12 - включение курсора больших букв; 

30 - обращение к подпрограмме ввода графических символов: для корабля - 4, 
для прицела - 1; 

40 - обращение к подпрограмме, загружающей с ленты четыре кодовые блока: 
ИТЕКУ, РУМЛЕК2, РУМЛЕКЗ, ЕККАМ 2; 

60 - эта часть программы выводит на экран название игры, сформированное с 
помощью кодовой подпрограммы ЫТЕКУ. Здесь у - верхняя граница выводимых 
букв, измеряемая в пикселях, начиная от верхнего края экрана; х$ - их ширина в 
знакоместах; уз - высота букв в знакоместах. В символьной переменной 4$ задается 
текст, который требуется вывести; 

70 - то же, что и в строке 60, но для текста 

РВЕЗ$ АМУ КЕУ ТО СОМТИМОЕ 

80 - ожидание нажатия любой клавиши; 

100 - спомощью кодовой подпрограммы РУ\МЛЕКЗ, вызываемой оператором 

ААМООМТ7Е 058 59366 

создается звуковой эффект, имитирующий полет снаряда и его взрыв; 

110 - восстановление цвета бордюра после действия предыдущей 
подпрограммы; 

130...150 - вывод на экран текста, поясняющего функции клавиш; 
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160 - ожидание нажатия любой клавиити; 

172 - установка начальных значений переменных: $ - счетчик шагов 
перемещений корабля, $1 - указатель количества этих шагов; 

176 - создание на экране рисунка звездного неба. Оператор КАМРОМИЕ в 
начале строки восстанавливает счетчик случайных чисел после обращения к 
подпрограммам в машинных кодах; 

177 - установка прицела в средней части экрана; 

179 - вывод на экран рамки, ограничивающей игровое поле; 

180 - вычисление случайным образом начальных координат корабля; 

185 - ввод дополнительных координат корабля, в которых будут сохраняться 
предыдущие их значения; 

186 - вывод на экран силуэта космического корабля; 

190 - ввод начальных координат прицела, которые при его перемещении 
потребуются для операций стирания; 

197 - вводится переменная Ё соответствующая текущему положению кнопки 
Огонь, причем в данном случае кнопка считается не нажатой ({ = 0); 

200...240 - эта группа операторов обеспечивает управление прицелом; 

310 - ограничения на перемещения прицела; 

320 - закраска белым цветом «старого» прицела при его перемещении по экрану 
(напомним, что был установлен режим ОУЕК 1); 

330 - голубым цветом изображается «новый» прицел; 

340 - запоминание координат, необходимое для того, чтобы их можно было 
восстановить, если они выйдут за пределы игрового поля; 

345 - проверка условия, был ли сделан выстрел. Если да, то устанавливается 
красный цвет «чернил» и рисуются два лазерных луча, а с помощью кодовой 
подпрограммы РУМЛЕК? воспроизводится звук выстрела. После выстрела 
устанавливаются белые «чернила» и на месте лазерных лучей рисуются две линии 
белого цвета; 

350 - если была нажата клавиша Огонь, и есть попадание в одно из четырех 
знакомест, обозначающих корабль, то включается кодовая подпрограмма 
РУМЛЕКЗ, которая формирует взрыв, а затем осуществляется переход на 
подпрограмму 1000...1040, которая уничтожает все экранное изображение и 
создается процедурой ЕККАМ 2; 

360 - если попадания нет, то переменной ОГОНЬ присваивается нулевое 
значение; 

410 - если перемещение, которое сделал корабль, равно установленному ранее, 
то для следующего прохода 5 устанавливается равным 0, а переменной $В 
присваивается случайное значение в диапазоне от 4 до 8; 

420 - увеличение счетчика на единицу; 

422 - ктекущим координатам корабля прибавляются приращения; 

425 - проверка, не вышел ли корабль за границы игрового поля экрана; 

440 - установка цвета вывода символов (белый); 

450, 460 - вывод на экран изображения корабля, заданный старыми 
координатами; 

470, 480 - установка цвета символов (желтый) и вывод на экран изображения 
корабля, заданного новыми координатами; 

490 - изменение значений координат; 

500 - безусловный переход к блоку управления прицелом; 

1000... 1040 - подпрограмма, имитирующая уничтожение корабля противника. 
На экране мелькают хаотические пятна, созданные в двух циклах при участии 
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кодовой подпрограммы ЕККАМ 2, запускаемой оператором 
ВАМООМТЗЕ 058 57392 
Перед ее использованием в ячейку 57399 заносится число в диапазоне от 0 до 


эь: 

7000...7095 - подпрограмма определения графических символов, из которых 
четыре используются для изображения космического корабля, а один для создания 
перекрестья прицела; 

7100...7150 - подпрограмма загрузки кодовых подпрограмм. Сначала грузится 


подпрограмма ГТЕКУ, затем на экран выводится фраза 
ГОАОТМ@, РЕЕАЗЕ МАТТ 
после чего загружаются РУМЛЕКЗ, РУМЛЕК?2 и ЕККАМ 2; 


7200...71296 - подпрограмма вывода на экран различных текстов, 
сформированных с помощью кодовой подпрограммы ЫТЕКУ. При этом координату 
у необходимо задать заранее, а координату х определять заранее не нужно, так как 
подпрограмма сама выравнивает текст по центру экрана. Размеры букв по 
горизонтали - хз и вертикали уз задаются заранее. И, конечно же, необходимо 


ввести сам текст. Запуск программы осуществляется оператором 
ВАМООМТЗЕ 058 59033 


Компиляция игровых программ 


Несколько раз мы упоминали о существовании специальных программ- 
компиляторов, позволяющих значительно ускорить работу бейсик-программ. 
Теперь пришла пора выяснить, что же такое компиляторы и с чем их едят. Помимо 
увеличения быстродействия, с помощью компиляторов успешно решается ряд 
проблем, возникающих при создании «коммерческих» игрушек. Например, многие 
компиляторы исключают возможность остановки программы при нажатии 
клавиши ВтеаК. Кроме того, осложняется жизнь любителям ковыряться в чужих 
программах, что отчасти защищает такое достаточно эфемерное в нашей стране 
понятие, как «авторские права». 

Большинство компиляторов переводит исходную программу на Бейсике в 
последовательность машинных кодов, понятных компьютеру. Тем самым заранее 
проделывается работа интерпретатора, имеющая низкий КПД, за счет чего и 
достигается более высокое быстродействие. В некоторых случаях 
скомпилированная программа (или, как ее еще называют, объектный код) может 
работать почти в 100 раз быстрее, чем Бейсик. Однако не спешите радоваться. Как 
известно, у каждой палки есть два конца. Поэтому нужно сказать несколько слов и 
о недостатках применения компиляторов, чтобы вы могли реально оценить их 
возможности. Так, ни один из них не поддерживает полный набор инструкций 
интерпретатора, а откомпилированная программа, как правило, не может работать 
без присутствия в памяти самого компилятора или, по крайней мере, той его части, 
которая содержит рабочие процедуры. Чтобы не повторяться, рекомендуем 
обратиться к книге [3], где представлена полная информация о компиляторах, 
даются их сравнительные характеристики, а также приводится таблица 
совместимости каждого из них с бейсик-интерпретатором. 

Итак, затратив немалое время, вы наконец завершили работу над игровой 
программой. При этом, еще на стадии ее отладки обнаружилось, что спрайты 
ползают по экрану со скоростью муравья, а ответной реакции на поворот ручки 
джойстика приходится дожидаться целую вечность. И вот в такой ситуации без 
услуг компиляторов просто невозможно обойтись. 

Начинать знакомство с этим классом прикладных программ лучше всего с 
компилятора ТОВО5 ЕР. На сегодняшний день он, пожалуй, самый популярный, 
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хотя это и не означает, что он самый лучший, самый быстродействующий, самый, 
самый... Все дело в том, что он самый простой в обращении и накладывает на 
исходную программу меныше всего ограничений. С его помощью можно 
обработать практически любую программу, приведенную в этой книге, правда, в 
них почти повсеместно придется вводить дополнительные задержки, иначе 
спрайты будут напоминать взбесившихся мустангов, и урезонить их окажется 
совсем непросто. 

ТОВОБ5 состоит из двух файлов - бейсик-загрузчика и кодового блока длиной 
12268 байт, загружаемого по адресу 53100. Вершина области бейсика (КАМТОР) 
устанавливается на адрес 39999, после чего выполняется оператор МЕМУ. В 
результате может создаться впечатление, что компьютер «сбросился», но на самом 
деле все так и должно быть. Удаляется только уже ненужный бейсик-загрузчик, а 
сам компилятор остается в памяти. Теперь можете загрузить вашу собственную 
программу. После окончания загрузки для начала компиляции введите с 
клавиатуры команду 

ААМООМТЕ 0ЗВ 53100 

На экране появится фирменная заставка ТОВО5, говорящая о том, что «процесс 
пошел». По окончании компиляции, если все в порядке и ошибок не обнаружено, 
на экране появятся еще две строчки вроде 

АОМ > ВАМООМТУЕ 058 40000 ЗАМЕ > СО0Е 40000, 7234 

Числа, естественно, могут быть и другими. Важно то, что в первой строке 
компилятор сообщает команду для запуска объектного кода, а во второй - адрес и 
длину полученной программы для сохранения ее на внешнем носителе. То есть, для 
старта введите с клавиатуры оператор 

ВКАМРОМ!ИЕ Ч5К 40000 а для записи на магнитофон -ЗАУЕ "пате"СОРЕ 
40000,7234 

Если потребуется, адрес размещения скомпилированной программы можно без 
труда изменить. Для этого достаточно ввести оператор 

СЕЕАН (аа9г-1) 

где ааат - новый адрес. 

Как уже говорилось, ни один компилятор не понимает весь набор операторов и 
функций Бейсика, и ТОВО5З в этом плане не является исключением. Если во время 
компиляции встретится недопустимая инструкция, появится сообщение 

№опзепзе 1п ВАЗТС 

с номером строки и оператора. Аля ТОВО5’а ограничения касаются, в 
основном, операций с внешней памятью, в остальном же он ведет себя вполне 
прилично. 

Попробуйте обработать с помощью ТОВО5, например, программу ЖИЗНЬ, и 
вы убедитесь в эффективности применения компиляторов. Разница окажется 
настолько очевидной, что вы, возможно, навсегда откажетесь от Бейсика «в чистом 
виде». 

Теперь попробуйте оттранслировать какую-нибудь другую программу, 
например, СОКОБАН. После запуска объектного кода вы обнаружите, что, наряду 
с положительным эффектом (ускорение вывода лабиринта на экран), возникли 
определенные трудности: управлять грузчиком стало совершенно невозможно. Он 
так быстро стал бегать по складу, что даже массивные ящики оказались не 
способны его притормозить. А все оттого, что при написании программы 
изначально не было расчета на компиляцию. Поэтому прежде, чем приступать к 
работе над игрушкой, сразу стоит прикинуть, потребуется ли в дальнейшем 
компиляция, и если да, то это необходимо учесть еще на этапе разработки 
программы, чтобы в дальнейшем ничего не потребовалось переделывать. Но как же 
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поступить, если вы все-таки столкнулись с подобной ситуацией? В игре СОКОБАН 
исправить положение достаточно легко. Вставьте в строку 580 оператор РАОЪЕ 0: 
550 РАЦЗЕ 0: ТЕ ТМКЕУ$="Р” ТНЕМ 1ЕТ Х1=Х+1: 1ЕТ \1=\; 60 ТО 660 
а в строку 660 для задержки включите «пустой» цикл: 
660 РОВ №=1 ТО 100: МЕХТ №: ТЕ 0$(\1,Х1)<" " АМО 1$(У1,Х1) "В" ТНЕМ 60 ТО 700 

и все будет в полном порядке. 

С другими программами, возможно, придется немного повозиться, но все же не 
настолько это сложно, чтобы вы не справились самостоятельно. 

Для придания программе окончательного «коммерческого» вида необходимо 
собрать все ее части воедино. Как уже говорилось, скомпилированная программа 
не работает без присутствия компилятора, поэтому на ленте должен быть записан и 
кодовый блок ТОВО5'а. Предположим, что программа оттранслирована с адреса 
40000, тогда загрузчик может выглядеть примерно так: 

10 ТМК 0: РАРЕВ 0: ВОВОЕН 0: СТЕАВ 39999 

20 [ОАО “"5СВЕЕМ$: ВЕМ Картинка-заставка. 

30 [ОАО ""СОБЕ 53100, 12268: ВЕМ Кодовый блок ТОВО$. 

40 [ОАБ “"СОБЕ 40000: ВЕМ Коды вашей скомпилированной программы. 
50 НАМООМТУЕ Ц5В 40000: ВЕМ Запуск программы. 

Сохраняется программа-загрузчик уже известным вам способом: ЗАУЕ "пате" 
ИМЕ 10 

который обеспечит послелующий автостарт. Все блоки на ленте должны 
располагаться в порядке, указанном в загрузчике, то есть: 

- сам загрузчик; 

- экранная картинка (если она заранее заготовлена); 

- кодовый блок компилятора; 

- объектный код скомпилированной программы. 

Может оказаться, что увеличения быстродействия, получаемого при 
использовании ТОВО5'а недостаточно. Это может случиться при написании особо 
динамичных игр с большим количеством персонажей. Тогла на помощь приходят 
так называемые целочисленные компиляторы, то есть компиляторы, работающие 
только с целыми числами. К ним относятся программы 7Х-СотрЦег, МСоадег2, 
ооНек 15. Однако задействовать все их возможности и получить блестящие 
результаты совсем непросто, так как они понимают лишь очень ограниченный 
набор операторов и функций Бейсика. Поэтому применять их следует только после 
досконального изучения их особенностей, а лучше всего писать программы 
специально ориентированные на эти компиляторы. В любом случае, советуем вам 
не оставлять их без внимания, тем более, что существует расширенная дисковая 
версия компилятора МСодег 2 - МС2Ь.\4 насколько нам известно, единственная, 
ибо дисковые версии прочих компиляторов по сути таковыми не являются, так как 
программа все равно может быть оттранслирована только из памяти. Кроме того, 
МС2Ь,х4, в отличие от прочих своих собратьев, создает совершенно независимый 
от компилятора объектный код, что несколько упрощает компоновку конечного 
продукта, а главное - освобождает дополнительную память для размещения 
фонтов, спрайтов, подпрограмм в машинных кодах и прочих нужд. Версия МС2Ь.у4 
имеет еще ряд существенных улучшений и дополнений по сравнению со своим 
первоисточником, но описание всех этих подробностей выходит за рамки данной 
книги, поэтому ограничимся сказанным; отметим лишь что программа эта 
написана одним из соавторов Александром Евдокимовым. 
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Как вы уже, наверное, поняли, создание компьютерных игр - дело весьма долгое 
и непростое. Даже на Бейсике. К тому же, на Бейсике никак не удается написать 
достаточно динамичную игру с большим количеством персонажей и предметов из- 
за невысокого быстродействия интерпретатора, встроенного в ИХ 5рестат. 
Значит, нужно прибегать к помощи компиляторов или писать исключительно на 
ассемблере. Но это (особенно последнее) - еще более сложное дело. А ведь как 
хотелось бы сразу, не влезая глубоко в теорию программирования, произвести на 
свет собственное творение или, в крайнем случае, перекроить чужую игрушку по 
собственному сценарию. Но ведь и это тоже не так-то просто. Глянешь в потроха 
какой-нибуль программы - сплошные нули, единицы, ничего не понять. Что 
поделаешь! Любишь кататься... 

Впрочем, можно все-таки прокатиться за чужой счет, чтобы хоть узнать, 
насколько это интересное дело - создавать компьютерные миры. Ну, а узнав, уже 
решать, стоит ли тратить время на изучение программирования. 

Существует целый ряд игровых программ, которые снабжены специальными 
редакторами, позволяющими изменять некоторые параметры игры (например, 
создавать свой вариант лабиринта). Но, как правило, этих изменяемых параметров 
очень мало - один-два. 

Генератор игр Сатез Оез1дпег, созданный в 1983 году фирмой 5оЙмаге 5910$, 
предоставляет гораздо большие возможности для творчества. Найдя правдами или 
неправдами эту программу, вы сможете создать игру, даже не имея ни малейшего 
представления о программировании. 

Собственно говоря, Сатез Пездпег представляет собой обычную игру- 
«стрелялку», но в ней позволяется менять все (или почти все) - от характера звука и 
цвета экрана до сценария. При случае вы сможете потешить свое самолюбие и 
похвастаться собственным творением перед друзьями и знакомыми: все 
изменения, естественно, могут быть сохранены на ленте (или на диске, если вы 
располагаете версией, адаптированной к системе ТВ-РО5). 

Однако хватит предисловий, перейдем к делу. 


Главное меню 


После загрузки программы Сатез Рез1юпег на экране появляется главное меню 
(рис. 10.1). С помощью соответствующих цифровых клавиш выбирается один из 
восьми режимов работы. Вначале рассмотрим их все вкратце, а затем разберем 
некоторые из них более основательно. 


БАПЕЗ ПЕЗ!БПЕВ ©1983 1.НОБЕ15 


РЕЯ СЯМЕ 
а....5ЕСЕСТ ПЕШ СЯМЕ 


ЗЕСЕСТ _РИПСТТОП: [1-8] 
Рис. 10.1. Главное меню программы Сатез$ Резапег. 


1. РРАУ САМЕ (Запуск игры). Думается, что в особых комментариях этот режим 
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не нуждается.. 

2. ЗЕГЕСТ МЕ\М/ САМЕ (Выбор новой игры). Вы можете создать до восьми 
различных игр и затем быстро выбирать любую из них, не перезагружая Сатез$ 
Резодпег. Надоело играть в одну игрушку - тут же нажатием одной клавиши 
поменяли ее на другую! Быстро и удобно. После того, как вы нажмете клавишу 2 в 
главном меню, внизу экрана появится запрос 

оеес{ пем/ дате: [1-8] (Введите номер новой игры) 

Нажмите цифровую клавишу, соответствующую номеру нужной игры, и 
можете начинать играть. Если нажать Етцег, то вы возвратитесь в главное меню. 

3. АГТЕК 5РАТТЕЗ (Изменение спрайтов). Напомним, что спрайтами называют 
движущиеся по экрану картинки. Таким образом, этот режим позволяет менять 
графику игры, вводить в нее новые персонажи. Более подробно режим АГТЕК 
ЭРВГГЕ5 будет рассмотрен в разделе Изменение графики. 

4. СОМЕСОКВАТЮМ (Внешний вид игры). При выборе этого пункта на экране 
появляется дополнительное меню, позволяющее изменять раскраску экрана, звук, 
выбирать тип управления (клавиатура или джойстик) и сам сценарий игры. Но об 
этом несколько позже, в разделе Внешний вид игры. 

5. МОУЕМЕМТ (Перемещения противника). Режим позволяет формировать 
траектории движения объектов, управляемых компьютером (в дальнейшем мы 
будем называть эти объекты «противником»). О том, как это делается, читайте в 
разделе Перемещения противника. 

6. АТГАСК М/АУЕ$ (Уровни сложности). Сатез Пездпег предоставляет 
широкие возможности по формированию уровней сложности и «агрессивности» 
противника. Здесь вы можете задавать количество противников на каждом уровне 
и число очков, получаемое за попадание в цель, применять различные варианты 
движения и менять скорость нападающих объектов. Противники могут быть 
достаточно беззащитны, уничтожая вас на манер камикадзе, но могут, кроме этого, 
еще и подрывать вас торпедами. Конечно, если вы сами того пожелаете. Все 
подробности о работе с этой опцией будут описаны в разделе Уровни сложности. 

7. ГОАО ЕКОМ ТАРЕ (Загрузить игру с ленты). Эта функция предназначена, как 
вы, очевидно, догадались, для загрузки вариантов игр, которые были созданы в 
Сатез Рез1дпег и записаны на ленту (см. режим ЗАУЕ ТО ТАРЕ). Отмотайте ленту 
на начало записанного ранее блока и включите магнитофон на воспроизведение. 
После окончания загрузки программа выйдет в главное меню. Если при загрузке 
возникнет ошибка, внизу экрана появится надпись: Таре ]оа 114 етгог. Нажмите 
клавишу Ещег для возврата в главное меню. Прервать операцию загрузки можно, 
как обычно, клавишей 5расе. 

В дисковой версии эта функция отсутствует, а все изменения загружаются при 
старте Сатез Оез1дтег, если нажать клавишу У на запрос Ро уоч \м’ап{ 1оа4 сБапдез 
(У/М). При нажатии любой другой клавиши программа запустится без загрузки 
изменений. Все восемь игр загружаются с диска одним махом, в ленточной же 
версии приходится загружать их по одной’. 

8. ЗАУЕ ТО ТАРЕ или 5АУЕ ТО РК (Записать игру на ленту или на диск)”. 
После выбора этого пункта главного меню внизу экрана появляется надпись ай 
{аре Шеп ргезз Ещег. Включите магнитофон на запись, затем нажмите клавишу 
Ещег. По окончании записи компьютер попросит вас перемотать ленту на начало 


'Не удивляйтесь, если в вашей дисковой версии дела обстоят несколько иначе. 
Здесь речь идет о версии, адаптированной автором этой главы. 
В дисковой версии это седьмой пункт меню. 
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для проверки, написав внизу экрана: Ке\млпа {фаре Гог уег@ШсаЙоп. Если вы вполне 
уверены в своем магнитофоне, можете нажать 5расе и продолжать работу, если нет 
- воспользуйтесь предложением: включите магнитофон на воспроизведение и 
проверьте, нет ли ошибок. При обнаружении ошибки компьютер известит вас 
надписью Таре уепйЙсайоп Баз {аПеЧ, при появлении которой нужно нажать 
клавишу Ещег и повторить запись. 

В дисковой версии запись производится аналогично, только отсутствует 
функция проверки записи. При работе с дисковой версией возможно появление 
сообщения Ее абзеп{ ргез$ Ещег, говорящего о том, что вы вставили в дисковод не 
тот диск. Вообще диск может быть и другой, но на нем обязательно должен быть 
записан файл а4.свап. Если вы перепишете этот файл на другой диск, то сможете 
получить дополнительный набор игр. 


Игра 

Вряд ли имеет смысл подробно описывать игру, которую можно изменять как 
угодно. Поэтому остановимся лишь на некоторых основополагающих моментах. 

Игра, которую можно сконструировать в Сатез Оез1дпег, представляет собой, 
по сути, довольно примитивную «стрелялку». Однако это не делает ее менее 
увлекательной, особенно если учитывать возможность менять почти все се 
параметры. На вас нападают неприятельские корабли в открытом космосе или на 
голову пикируют неизвестные науке чудовища, сбрасывающие бомбы на 
парашютах, а вам нужно отстреливаться от всей этой пакости, уворачиваться от 
лобовых столкновений... Ну, и так далее (рис. 10.2). Наверное, вы уже поняли 
основную идею, а воплощение этой идеи зависит от вас. Впрочем, если в данный 
момент у вас нет соответствующего творческого настроя, можете воспользоваться 
уже готовыми вариантами, любезно предоставленными авторами Сатез$ Оез1дпег. 

Во время игры в верхней части экрана высвечивается счет (5СОВЕ), количество 
дополнительных «жизней» (МУЕ$) и рекордное количество очков, полученное в 
предыдущих играх (СН). Вам дается три дополнительные «жизни», то есть всего 
у вас имеется четыре попытки. Увеличить их количество в программе нельзя, но, 
наверное, это и не столь важно, поскольку облегчить себе жизнь можно и другими 
способами. 

Игра может состоять из нескольких уровней сложности. Переход на 
следующий уровень происходит после того, как вы уничтожили всех 


Взрыв вражеского корабля 


1 
Ваши снаряды 
Ваш корабль 


оотивника” 


е торпеды 


Рис. 10.2. Один из моментов игры. 
противников на предыдущем. За каждое попадание вы получаете 
установленное количество очков. 
Игра заканчивается, когда израсходована последняя «жизнь». Если у вас 
появится желание прервать игру досрочно, нажмите клавишу Ещег. Если вы все же 
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доиграете до конца, компьютер попросит назвать ваше имя для внесения 
результата в таблицу рекордов - конечно, если количество набранных вами очков 
не слишком мало. Впрочем, на первых порах только нулевой результат не позволит 
вам стать рекордсменом. Используя клавиши б и 7, подведите курсор к первой 
букве своего имени и нажмите клавишу 0. Аналогично напечатайте и остальные 
буквы. Постарайтесь при этом не наделать ошибок: стереть неправильно 
введенную букву уже не удастся. Квадратик в конце алфавита означает пробел, а 
значок # используется для завершения ввода. Надо заметить, что зачислять себя в 
список рекордсменов вовсе не обязательно. Если вы не желаете этого делать, 
нажмите клавишу 5, и игра начнется заново. 

И в завершение этого раздела еще один важный момент, незаметный для 
«невооруженного глаза». Это возможность переопределения управляющих 
клавиш. Для этого игру нужно начинать не просто нажав, находясь в главном 
меню, клавишу 1, а удерживать при этом Сарз ЭМИ. Если у вашего компьютера 
расширенная клавиатура, то можете воспользоваться одной клавишей Еаи. На 
экране появится надпись 5@ес{ пе\м сопто| Кеуз (выберите новые управляющие 
клавиши), вслед за которой необходимо последовательно нажать клавиши: Вверх 
(на запрос У/ымсьЬ Кеу Гог чр), Вниз (МЛысВ Кеу юг аомт), Влево (М/ысЬ Кеу Гог 1еН), 
Вправо (\МЛсЬ Кеу Юг п и, наконец, Огонь (МЛись Кеу г Йге). 


Порядок проектирования игры 


Если вы не любите, когда кто-либо навязывает вам свое мнение, можете смело 
пропустить это вступление без ущерба для дальнейшего восприятия. Всем же 
прочим осмелимся дать несколько практических советов по последовательности 
проектирования игр в Сатез Рез1дпет. 

Начинать разработку лучше всего с выбора типа игры: определения места 
действия, направлений движения объектов, способа управления (клавиатура, 
джойстик) и т. д. Далее задаются цвета фона и программируется звуковое 
оформление. Все необходимое для этого вы найдете в режиме СОМЕСОКАТЮОМ 
главного меню. Затем задайте траектории движения противника с помощью 
режима МОУЕМЕМТ, потом переходите к АТТАСК \М/АУЕ$ для определения 
характеристик каждого из восьми возможных уровней сложности, и только в 
самом конце приступайте к рисованию графических объектов. 

Такой порядок удобен тем, что до выбора типа игры и определения 
характеристик уровней трудно предсказать, сколько спрайтов вам понадобится и 
под какими номерами они будут фигурировать. В этом порядке мы и будем вести 
дальнейшее изложение. 


Внешний вид игры 


При выборе пункта СОМЕСУКАТТОМ на экране появляется дополнительное 
меню. В ответ на запрос эеес{ Цешт: [1-8] нужно нажать цифровую клавищу, 
соответствующую требуемому пункту. Параметры, введенные при выборе пунктов 
1...4, влияют на внешнее оформление игры. При этом внизу экрана появляется 
соответствующая подсказка, а номер пункта начинает мерцать. Если вы по ошибке 
выбрали не тот пункт, нажмите Ещег, и все останется без изменений. Пункты 5...8 
служат для редактирования звуковых эффектов: выстрелов, взрывов. Рассмотрим 
пункты меню СОМЕСОКАТТОМ по порядку. 

1. САМЕ ВОКМАТ=Х (Тип игры). Здесь Х - число от 0 до 7. Именно этот 
параметр в основном и определяет сценарий игры. Вообще, принципиально 
различных типов игр в Сате Оез1дпег не восемь, а четыре. Отличие одной четверки 
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от другой состоит лишь в способе управления. То есть если вы хотите использовать 
клавиатуру, вводите числа от 0 до 3, а если вы предпочитаете играть, орудуя 
джойстиком, - числа 4...7. Итак, что же означают эти числа (или иначе - коды)? 
Попробуем описать типы игр, получаемые при вводе каждого из них. 

Тип А (коды 0 и 4). У вас имеются, как говорят в технике, две степени свободы. 
Можно двигаться по нижней кромке экрана только в двух направлениях - вправо и 
влево, а также стрелять вверх. Противники нападают сверху и при этом могут 
сбрасывать на вас бомбы. 

Тип В (коды 1 и 5). В этом случае вы занимаете круговую оборону и, 
поворачиваясь в разные стороны, обстреливаете противника. Дозволяется также 
двигаться по всему экрану, причем если вы уйдете за его край, то тут же появитесь 
с другой стороны. Движение возможно по вертикали, горизонтали и по 
диагоналям. Разворачивайтесь в нужную сторону, используя клавишу «вправо» для 
поворота по часовой стрелке или «влево» - в обратную сторону, а вместо 
акселератора жмите на клавишу «вверх», и при этом не забывайте время от 
времени стрелять. 

Тип С (коды 2 и 6). Пожалуй, этот тип лучше всего подходит для имитации 
космического боя. Ваш корабль летит на фоне звездного неба (о том, как его 
получить, будет сказано чуть позже). Впереди, то есть в правой части экрана, 
появляются вражеские корабли, стреляющие ракетами. Уничтожайте противника 
из своей пушки, лавируйте и не допускайте столкновений с врагом и попаданий его 
ракет. Вы можете перемещаться по левой половине экрана, двигаясь в любом 
направлении. При этом нажав клавишу «вправо», вы получаете ускорение и 
двигаетесь до средины экрана, отпустив - плавно откатываетесь назад. Клавиша 
«влево» не задействована. 

Типр (коды Зи 7). Этот тип очень напоминает тип В. Отличие состоит, пожалуй, 
только в отсутствии диагонального движения, да управление несколько проще - 
какую клавишу нажмете, туда и поедете. 

2. ВАСКСКОЧМО = Х (Задний фон). Этот пункт позволяет подобрать цвет 
фона всего экрана (аналогично операторам Бейсика РАРЕВ Х и ВОКВПЕК Х). 
Кодировка цвета (соответствие чисел и цветов, их обозначающих) стандартная, 
принятая в Бейсике: 

0 - черный; 

1 -синий; 

2 -красный; 

3 - фиолетовый; 

4 - зеленый; 

5 - голубой; 

6 -желтый;: 

7 - белый. 

3. ВОКЕСКОЧМО =Х (Передний фон). Аналогично предыдущему пункту можно 
определить цвет звезд (если вы включили звездный фон, см. ниже), а также цвет 
всех надписей, в том числе и в таблице рекордов. Соответствует бейсик-оператору 
ПМК Х. 

4. ЗРЕСТАГ ЕХ =Х (Специальная функция). Эта функция определяет порядок 
появления противника и способ его уничтожения, а также включает или 
выключает звездный фон. Противники в играх могут появляться либо поодиночке, 
либо сразу группой. Столкновение с любым из них ведет к гибели, поэтому их 
приходится уничтожать. Это 

можно делать либо на расстоянии, стреляя из пушки, либо подойдя почти 
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вплотную, и ударив, например, дубинкой. Интересующее вас число можете 
выбрать из приведенной таблицы: 
Противники появляются Поодиночке Группой 


Звездный фон Нет Есть Нет Есть 
Уничтожение на расстоянии 0 1 р. 3 
Уничтожение при сближении 4 5 6 г. 


Остальные пункты этого меню, как уже говорилось, позволяют менять характер 
звуковых эффектов. 

5, б, 7, 8. МБЗШЕ 5ОЧМО (Звук вашего выстрела) ВОМВ 5ОЧМР (Звук 
выстрела противника), 5ЕПР ЕХРГОПЕ (Взрыв вашего корабля), АМЕМ ЕХРГОРЕ 
(Попадание снаряда во вражеский корабль). Все звуки изменяются одинаковым 
способом, поэтому нет необходимости описывать эти пункты в отдельности. При 
выборе одного из них на экране появляются пять диаграмм, отражающих пять 
характеристик звука (рис. 10.3): 


БАТР1 РАПТР@е СЕЧЕС ТИПЕ 
Рис. 10.3. Редактор звуков. 

НКВЕО. - начальная частота. Чем выше «движок» на диаграмме, тем 

ниже получается тональность звука; КАМР1 и КАМР2 - составляющие 
огибающей звука (или проще - 

вибрации); 

ГЕУЕЕГ - глубина вибрации; ТМЕ - длительность звучания. 

Изменяя эти параметры, можно получить звуки самого различного характера: 
от пулеметной очереди до жужжания бормашины. 

На рис. 10.4 показана огибающая формируемого звукового сигнала: его частота 
периодически меняется. Рассмотрев этот рисунок, вы поймете, что означает тот 
или иной параметр звука. 

Высота «движков» на диаграммах, а следовательно, и значения параметров, 
регулируется с помощью цифровых клавиш. Клавиши 1 и 2 

ЧАСТОТА 


ЕВЕО(Е1 


ТЕМЕ 


| 
| = Г — 
1 Саар 12 
КАМР2 КАМР1 ВРЕМЯ 


ТИМЕ 
Рис. 10.4. Характеристики звука. 

изменяют положение движка на диаграмме частоты звука (1 - поднять движок, 2 
- опустить), Зи 4 делают то же самое на второй диаграмме, следующую диаграмму 
изменяют клавиши 5 и 6, и так далее - то есть для регулировки каждого из 
параметров используется своя пара клавиш. Чтобы не действовать вслепую 
(точнее, вглухую), иногда нажимайте клавишу 5утро]| ЭМИ, и вы услышите, какой 
звук получается в результате ваших манипуляций. 
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Перемещения противника 


После того, как вы задали тип игры, можно приступать к формированию 
траектории движения врага. Понятно, что если вы выбрали тип А, то есть можете 
передвигаться только по нижней кромке экрана, преимущественное направление 
движения противника должно быть сверху вниз, иначе не успеете вы сделать ни 
одного выстрела, как уже будете уничтожены. С типом С несколько проще, но все 
же неприятель должен нападать на вас спереди, а не сзади. Значит, здесь не стоит 
увлекаться перемещением слева направо. Для остальных двух типов выбор 
направлений в общем-то не имеет значения. 

При выборе пункта МОУЕМЕМТ на экране появится картинка, показанная на 
рис. 10.5. Можно задать до восьми возможных траекторий движения противника, 
пронумерованных от 0 до 7 (МО - номер траектории). Для каждой из них вводится: 

РАТТЕКМ - ряд чисел, кодирующих направления (диаграмма в правом верхнем 
углу экрана подскажет вам, какому направлению какое число соответствует: 0 - 
вверх, 1 - вверх и вправо, 2 - вправо ит. д.) 

МЕХТ - номер (№0) последовательности для продолжения движения. После 
прохождения по одной траектории, противники начинают 
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Рис. 10.5. Редактор траекторий. 


двигаться по траектории, номер которой задается в этом пункте. Для 
продолжения движения можно указывать и ту траекторию, которую вы 
редактируете. 

Для начала редактирования нажмите цифровую клавишу, соответствующую 
номеру изменяемой траектории (0...7). В правом нижнем углу экрана появится 
изображение траектории, напоминающее след мела на школьной доске, а в начале 
выбранной строки замигает курсор. Заменяя прежние числа новыми, вы 
обнаружите, что и траектория начнет меняться. Курсор перемещается по 
редактируемой строке клавишами 8 или 9. После того, как вы задали нужную 
траекторию, нажмите Ещег. Теперь вы можете обработать аналогичным образом 
следующую последовательность, либо, еще раз нажав Ещег, выйти в главное меню. 


-П 
у 


Уровни сложности 


Это, пожалуй, самый ответственный этап формирования игры, позволяющий 
вносить в нее наибольшее разнообразие. 

Название режима АТТАСК М/А\УЕ$З (волны атаки) говорит само за себя. Все, что 
вы в нем формируете, касается атакующей стороны, то есть вашего противника. 
Если вы любите риск и достаточно уверены в себе, можете дать сопернику 
хорошую фору. Но не переусердствуйте, чтобы не оказаться расстрелянным в 
первые же секунды боя. 

После того как вы нажали клавишу 6 в главном меню, на экране появляется 
таблица, изображенная на рис. 10.6. Первая графа (М0 - номер уровня сложности) 
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не изменяется и служит лишь в качестве порядкового номера; числа в остальных 
шести графах могут быть изме- 


БЬЯТЕЗ ПЕЗ1СПЕВ ©1983 1.НОЕЕ15 


ПО.АПТМ 5СОБРЕ РАТ МАН 5РПО ПЕНТ 

.5...1....О..1щ... 
М Ра 
19 ....м. о 1. .о 
.0О....0О..а5... 
.0О0....Ч..а9... 
.0О....0О..35... 
.30....6..25... 
.30....0..365... 


д. 
1. 
а. 
Е 
ч. 
5. 
Ь. 
?. 


оНТЕТ_РОБ_СИУБЫОБ _СОПТВОЕ 


Рис. 10.6. Режим АТТАСК М/АУЕ$. 

нены в предусмотренных пределах. Для коррекции того или иного параметра 
подведите мигающий курсор к нужной цифре с помощью стандартных курсорных 
клавиш: 

Сар$ ЗЫ и 5 - влево, Сарз ЗЫ и 7 - вверх, Сарз ЭМИ и б - вниз, Сар$ ЗЫШ и 8 - 
вправо, а затем введите новое число. Теперь мы попробуем разобраться с каждой 
графой таблицы в отдельности. 

АММ (Апппайоп - оживление). Допустимый диапазон чисел - от 0 до 7. Первый 
шаг к «оживлению» мы уже сделали, задав траектории движения. Но лвижущийся 
объект может вращаться, внешне изменяться и т. п. В Сатез Оездпег для этого 
можно задействовать два или четыре спрайта (впрочем, ничто не мешает 
использовать и объекты, не меняющие своего внешнего вида). И здесь уже 
придется выбирать, что вам больше по душе: однотипные, но живые, шевелящие 
хвостами динозавры, либо разнообразные атакующие монстры, внешне мертвые, 
но не менее опасные. Кроме того, всю эту дичь можно заставить двигаться гуртом 
по одной траектории или пустить каждого по своей дорожке. Однако всего должно 
быть в меру, ибо увеличение сложности на одном уровне достигается за счет 
обеднения другого или сокращения общего количества уровней. 

Объясняется это тем, что на все восемь уровней сложности дастся 16 спрайтов, 
изображающих противника. Таким образом, для каждого уровня существует своя 
пара картинок, или для пары смежных уровней - четверка (см. раздел «Изменение 
графики»). 

Так как же получить каждый из перечисленных вариантов? Чтобы не 
запутывать вас долгими рассуждениями, приводим таблицу, из которой без труда 
можно выбрать требуемое сочетание: 


Код Число Мультипликация Число 
спрайтов траекторий 
0 2 нет 1 
1 2 есть 1 
2 2 нет 2 
е 2 есть 2 
4 4 нет 1 
5 4 есть 1 
6 4 нет 4 
7 4 есть 4 


Как видно из таблицы, коды 6 и 7 позволяют получить четыре группы врагов, 
каждая из которых движется по своей траектории. Но при этом можно 
использовать только траектории 0..3. Таким образом, если использовать коды 6 и 7, 
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то в результате графа РАТ (см. ниже), определяющая номер траектории, по 
которой начинают движение противники, оказывается совершенно бесполезной. 

ЭСОКЕ (Счет). В этой графе определяется количество очков, даваемое за 
попадание в цель на каждом из уровней. За удачный выстрел вы можете начислить 
себе от 0 до 99 очков. Логично предположить, что призовая сумма будет расти при 
переходе к более сложным уровням, хотя, конечно, вы вправе иметь на этот счет 
свое мнение. 

РАТ (РаЦегп, номер траектории). Эта графа определяет номер траектории, по 
которой начинают свое движение противники на каждом из уровней сложности. 
Естественно, что числа здесь могут быть от 0 до 7 Как уже говорилось, объекты 
могут перемещаться не только по одной траектории. При использовании четырех 
траекторий автоматически выбираются номера 0...3, а что касается двух, то в этом 
случае для определения второго пути берется следующий номер. Например, если в 
графе РАТ задан номер 3, то одна группа противников будет двигаться по этой 
траектории, а вторая - по траектории 4 (или 0, если начальный номер 7). 

МАХ (Махипит). Здесь указывается общее количество врагов, которые будут 
бить вас на каждом уровне. Это число не может превышать 99, но столько, 
наверное, и не требуется, - можно ограничиться меньшим числом, иначе 
следующий уровень может оказаться недосягаемым. Игра всегда начинается с 
уровня под номером 0 (причем ничто не мешает сделать его самым 
труднопроходимым). Впрочем, если вам захочется пропустить какой-либо уровень, 
задайте для него в графе МАХ значение ноль. Это удобно делать также на этапе 
отладки: чтобы взглянуть что творится на последних уровнях, не придется 
проходить всю игру от самого начала. 

ЭРО (5рееа - скорость). Помимо регулирования скорости перемещения врага, 
здесь вы решаете, давать ли ему оружие. Кроме того, в этой графе определяется 
общее количество одновременно атакующих вас противников. Ведь даже если в 
предыдущей графе задано максимально -возможное число противников, это вовсе 
не означает, что все они накинутся на вас сразу. Они будут появляться постепенно: 
стоит уничтожить одного, как на подмогу товарищам спешит следующий. 
Олновременно же на экране может быть не больше четырех или не больше восьми 
вражеских объектов. Надо только помнить, что при меньшем их количестве атака 
будет более стремительной. К тому же стрельба по рассредоточенным мишеням 
потребует большей сноровки, так что это отнюдь не облегчит вашу участь. Из 
приведенной ниже таблицы выберите наиболее приемлемый для вас вариант и 
внесите соответствующий код в графу ЭРО. 


Код Число Скорость Стреляют $ 
противников 
0 8 нормальная нет 
1 8 повышенная нет 
2 4 нормальная нет 
3 4 повышенная нет 
4 8 нормальная ла 
5 8 повышенная ла 
6 4 нормальная да 
7 | + | повышенная | ла 


МЕХТ (Следующий). Как уже было сказано, игра всегда начинается с уровня 
под номером 0. А вот дальнейший порядок чередования уровней вам предлагается 
выбрать самостоятельно. И далеко не всегда наилучшим оказывается 
последовательный переход от уровня к уровню в порядке возрастания номеров. 
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Если в графе АММ на четном уровне вы записали числа от 4 до 5, то лучше 
перескочить следующий уровень или вовсе исключить его из игры, так как графика 
на этом следующем уровне будет повторять предыдущую (вспомните: четверка 
спрайтов определяет графику двух соседних уровней). 


Изменение графики 


Выбрав пункт 3 главного меню (АГТЕК ЗРКГГЕ$), вы увидите на экране 
изображения спрайтов (рис. 10.7), используемых в текущей игре (как вы помните, 
Сатез Резапег «держит» в памяти одновременно до восьми игр). Для каждой игры 
имеется свой набор из 32 спрайтов, пронумерованных от 0 до 31 (спрайт-файл). Все 
спрайты имеют строго фиксированные размеры - 12 х 12 точек, и каждый «знает» 
свое место. 

Первые 16 спрайтов (с номерами 00...15) - это ваши противники. Каждому 
уровню сложности, как вы помните, соответствует пара спрайтов, или двум 
соседним уровням - четверка (в зависимости от числа, заданного в графе АМ 
режима АТТАСК М/АУЕ$5). То есть на уровне О могут использоваться спрайты 00 и 
01 либо от 00 до 03; на уровне 1 - спрайты 02 и 03 либо та же четверка от 00 до 03; на 
следующем уровне - 04 и 05 или же 04...07 ит. д. 

Следующие восемь спрайтов - это различные ракурсы того самого персонажа, 
которым управляете вы, нажимая на клавиши или поворачивая ручку джойстика. 
Правда, не во всякой игре понадобятся все восемь 
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ЗЕСЕСТ _5РВЕТТЕ : [00-31] 
Рис. 10.7. Таблица спрайтов. 


картинок. Их количество зависит от типа игры, заданного в режиме 
СОМЕСЧКВАТТЮОМ, а точнее, от количества направлений стрельбы. Спрайт с 
номером 16 появляется при движении вверх, 17 - вверх и вправо, 18 - вправо, и так 
до спрайта с номером 23 (по часовой стрелке, с поворотом на 45 градусов). В 
результате получается, что в играх с типом А используется один только спрайт с 
номером 16, в типе В - все восемь спрайтов, в типе С - спрайт номер 18 и в типе РО - 
спрайты с номерами 16, 18, 20 и 22. 

Спрайты 24 и 25 изображают соответственно ваши и вражеские снаряды - по 
одному спрайту на снаряд. 

Спрайты 28...31 соответствуют четырем фазам взрыва. Спрайт 27 используется 
только в Том случае, если вы решили уничтожать противника при 
непосредственном контакте, то есть в опции СОМЕСОКАТТОМ задали значение 
специальной функции (5РЕСТАТ ЕХ) в диапазоне 4...7. 

Что же касается спрайта 26, то автору этого описания не удалось выяснить его 
назначение: ни в одном варианте игры он не появляется. Не исключено, что это 
просто издержка производства или, что более вероятно, он предусмотрен 
создателями программы в качестве буфера. Во всяком случае, в этом качестве его 
очень удобно использовать при создании новой графики (см. ниже). А если 
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потребуется поменять местами два спрайта, то без такого буфера и в самом деле не 
обойтись. 

Эти спрайты можно редактировать - изменять по своему вкусу. После того как 
вы вошли в режим АГТЕВК 5РЕГТЕ$, на запрос 5@есё зрще: [00-31] введите 
двузначное число, соответствующее номеру спрайта, который вы хотите изменить. 
Вы войдете в редактор спрайтов (рис. 10.8). На экране появится список 
управляющих клавиш редактора и два квадрата. Маленький квадратик внизу 
демонстрирует изменяемый 
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Рис. 10.8. Редактор спрайтов. 

спрайт в натуральную величину, а большой квадрат справа - этот же спрайт в 
увеличенном масштабе. 

Вверху большого квадрата помещены цифры от 1 до 6. Нажимая 
соответствующие цифровые клавиши, можно ставить или удалять точки в колонке 
под цифрой. Один раз нажали - поставили точку, еще раз нажали - убрали. Ряд, в 
котором происходят эти изменения, отмечается символом >, который можно 
передвигать вниз (клавиша 8) или вверх (клавиша 7). Но таким способом вам 
удастся нарисовать только левую половину спрайта. Чтобы перейти к правой 
стороне, нажмите клавишу 9 и цифры над большим квадратом зеркально 
отобразятся относительно его вертикальной оси. Теперь таким же образом можно 
ставить недостающие точки или убирать лишние и на правой стороне. Для возврата 
к левой половинке вновь нажмите клавишу 9. 

Если вам нужно изменить цвет спрайта, нажмите клавишу Сарз ЗЫ и, не 
отпуская ее, цифровую клавишу, соответствующую коду цвета. Но это касается 
только цвета точек и не затрагивает фона (напомним, что фон устанавливается для 
всех спрайтов одинаковым с помощью функции ВАСКСКОЧМО режима 
СОМЕСОУКАТЮОМ). Когда работа над спрайтом закончена, когла вы поставили 
последнюю точку и окрасили картинку в нужный цвет, - нажмите клавишу Ещег 
для возврата к таблице спрайтов. Теперь можно точно так же изменить следующий 
спрайт или, еще раз нажав Ещег, выйти в главное меню. 

Прежде чем закончить этот раздел, упомянем еще об одной возможности. Для 
имитации движения, как вы понимаете, потребуется создать несколько почти 
одинаковых картинок, отличающихся одна от другой, быть может, совершенно 
незначительными деталями. Для этого не нужно перерисовывать весь спрайт от 
начала до конца, достаточно лишь слегка подправить уже нарисованный. Прежде 
всего понадобится получить копию спрайта в другом спрайте. В Сатез ОБез1дптег 
есть такая возможность. Вводя номер спрайта, который вы хотите скопировать, 

удерживайте клавишу Сар$ ЭМИ, и вместо редактора спрайтов увидите внизу 
экрана подсказку 

МОМЕ ЗРВТТЕ ХХ ТО 
Теперь клавишу Сарз ЭМИ можно отпустить и ввести номер спрайта, в который 
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будет скопировано изображение. Если в последний момент вы передумали, то 
можете отменить операцию, нажав Ещег. Когда же вы введете номер, то увидите, 
что получили в точности такой же спрайт на другом месте, а перемещаемый спрайт 
остался там же, гле и был, без изменений. 

В заключение расскажем о дополнительных возможностях, не 
предусмотренных в Сатез Оез1дпег, но которые, немного потрудившись, можно 
реализовать самостоятельно 


Дополни тельные ВОЗМОЖНОСТИ 


Трудно сказать, в каком виде к вам попадет программа Сатез Оезодпег. Но 
обычно она состоит из двух файлов: 

1) да - загрузчик на Бейсике, длина 270 байт, стартовая строка 1; 

2) СО - программа в кодах, адрес загрузки 23600, длина 36400 байт. 

Для внесения изменений и реализации дополнительных возможностей, о 
которых пойдет речь ниже, нужно слегка видоизменить кодовый блок. Не 
пугайтесь. это очень просто. Загрузите бейсик-блок 94 оператором МЕВСЕ и 
приведите его к следующему виду: 

1 ВОВОЕВ 1: РАРЕВ 1: ТМК 7: (15 : РИОТ 58, 148: ОВАМ 138,0: ОВАМ 0,-35: ОВАМ -138,0: 
ОВАМ 0,35: РВТМТ АТ 4, 8; "ЗоРмаге 51и910$”; АТ 6, 9; "батез Без1дпег” 

2 РАТМТ АТ 12,12; ЕГАЗН 1; "ЕОАОТМ6”: ТМК 1:10АО ””СО0Е 26000 

5 НАМООМТ7Е ЦЗН 26000 

10 (ОАБ "60"СОБЕ 24600: ЗАМЕ “94” ЕТМЕ 1: РАЦЗЕ 30:РОКЕ РЕЕК 23631+256*РЕЕК 
23632+2, 181:3АМЕ "60"СО0Е 27000, 34000 

Затем установите ленту на начало второго блока и введите с клавиатуры 
оператор СО ТО 10. Включите магнитофон. Когда коды загрузятся, поменяйте 
кассету и сохраните программу целиком, нажав любую клавишу. Полученная 
программа будет загружаться, как обычно, командой ГОАПР "". 

Заметим, что все сказанное никак не касается обладателей дисковой версии, 
так как все необходимое в этой версии уже проделано. 

Теперь вы можете изменить количество «жизней» или получить бессмертие. 
Для этого в загрузчик нужно включить дополнительные операторы, выполняемые 
после загрузки кодового блока, но до старта программы, то есть до выполнения 
оператора КАМРОМИЕ Ч95К 26000. Если вы хотите увеличить или уменьшить число 
попыток, введите дополнительную строку: 

3 РОКЕ 36919, Хх 

Х - это и есть требуемое число «жизней». Помните только, что оно не может 
превышать 10 и, уж конечно, не должно быть нулем. Стать «бессмертным» 
поможет другая строка: 

4 РОКЕ 38079,0: РОКЕ 38080, 195 

И, наконец, самое полезное усовершенствование, которое мы можем 
предложить для облегчения работы с Сатез ПОез1дпег. Если вы уже успели 
попробовать изменить спрайты, то, вероятно, заметили, что редактор спрайтов, 
мягко говоря, не слишком удобен в работе. Возможно, у вас и вовсе пропадет охота 
возиться с этим. Мы можем предложить вам значительно более простой и удобный 
способ получения новой графики с помощью любого графического редактора, 
например, ТВе Аи1${ П или Ай За. 

Этот способ состоит в следующем: картинки спрайтов рисуются в графическом 
редакторе, и экранный файл записывается на магнитный носитель. Далее 
экранный файл загружается в специальную программу - генератор спрайтов, 
которая «вытаскивает» спрайты из экранной картинки и сохраняет их на ленте. 
Естественно, можно пользоваться и готовыми экранными файлами. 


10. ГЕНЕРАТОР ИГР САМЕ$ РЕЗ СМЕК 147 


При рисовании спрайтов нужно помнить несколько правил: 
картинки имеют размеры 2х2 знакоместа, но по краям два ряда пикселей 
должны быть пустыми; 
спрайты нужно расположить в два ряда вверху экрана в порядке 
возрастания номеров слева направо (рис 10.9); 

имеет значение только цвет тона ПМК (цвет фона РАРЕК, как вы помните, 

устанавливается в программе одновременно для всех спрайтов). 


аа 


жен ва 


Рис. 10.9. Изготовление спрайтов в графическом редакторе. 

Когда вы получите экранный файл, запишите его на ленту, а затем запустите 
приведенную ниже программу. Если она набрана без ошибок, то через несколько 
секунд в верхнем левом углу экрана появится сообщение ОК (при получении 
сообщения ЕККОК ПМ РАТА проверьте набор). Дальше программа запросит 
экранную картинку (5сгееп$:). загрузит и обработает ее. Затем на запрос Зргце: 
нужно ввести имя, под которым 

будет записан кодовый блок со спрайтами. При повторном использовании 
программы ее можно запускать со строки 100. 

Полученные таким способом спрайты могут быть включены в игру, если вы 
вставите в бейсик-загрузчик «да» строку 

3 [ОАО “”"СОБЕ АБОЕ 

где адрес загрузки спрайтов АРОК зависит от номера игры, в которой вы 
заменяете спрайты: 
Номер игры | АРОК 

1 29696 
45056 
47104 
49152 
51200 
53248 
55296 
57344 

Ниже приведен текст генератора спрайтов для Сатез Рез1дтег. Она рассчитана 
на работу с магнитофоном. Для работы с дисководом перед операторами ГОАР и 
ЗАУЕ нужно написать КАМРОМ!ИЕ ОЪК 15619: ВЕМ: и в строке 310 максимальное 
количество символов в имени (число 10) заменить на 8. 

10 (1$ : ВЕЗТОВЕ : 1ЕТ $=0 

ОВ п=60000 ТО 60107 

ЕАО а: РОКЕ п, а: ЕЕТ 3=8+а 

ЕХТ п 
Е 5<>12462 ТНЕМ РАТМТ “ЕВВОВ ТМ ОАТА”: 5ТОР 

Т "ОК" 

Т а$="Эсгееп$: "; 60 З0В 300 

О п$С00Е 16384 

БОМТ7Е 05А 60000 

а$="Эрг1{е: ”: 60 $08 300: ТЕ п$=”" ТНЕМ 60 ТО 130 
п$СО0Е 29696, 1088 150 ЗТОР 

ОТ (а$); 11АЕ п$ 

Е ТЕМ п$>10 ТНЕМ 1ЕТ п$=1$( ТО 10) 

ЕТИВ 
1000 АТА 33,0, 64, 17,0, 116, 221, 33 
1010 БАТА 32, 120, 205, 124, 234, 33,64, 64 
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1, 32,0,9, 205, 186, 234, 205 
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После того, как вы немало потрудились, изучая совсем не простые вопросы 
создания игровых программ, неплохо было бы теперь поиграть, введя в компьютер 
одну из таких программ. Предлагаем несколько игр, к каждой из которых даются 
правила, и листинги программ, а для некоторых - еще и краткие пояснения на тот 
случай, если вы захотите более глубоко изучить особенности их построения и 
использовать в собственных разработках. 

Если программа любой из предлагаемых игр будет набрана без ошибок, в нее 
сразу можно начинать играть, однако, если вы хотите навести окончательный 
блеск, советуем проделать небольшую, но очень полезную работу - ввести в игру ее 
правила на русском языке, воспользовавшись программами 10 или 11. 

Для этого предлагаем такую последовательность действий: 

1. Введите в компьютер бейсик-программу нового набора символов и запустите 
ее оператором КОМ. В результате этого в памяти компьютера образуется кодовый 
блок, содержащий русские буквы. 

2. Запишите этот кодовый блок на ленту с помощью оператора 

ЗАМЕ “МЕМ_ЗУМВОЕ"СОБЕ 64256, 768 

3. Загрузите игровую бейсик-программу с ленты или введите ее из книги, после 

чего добавьте в текст строки: 
1 СЕЕАН 64255 
2 [ОАБ “"СОБЕ: РОКЕ 23607, 250 

и запустите оператором КУМ. При этом с ленты потребуется ввести 
записанную ранее программу МЕМ/ _ЗУМВОГ. 

4. После окончания загрузки на свободные строки игровой программы можно 
вводить русский текст. Но лучше всего образовать отдельную подпрограмму 
«Правила» где-нибудь в конце программы. 


МИНЫ 


Цель игры состоит в том, чтобы пройти по полю, на котором случайным 
образом расставлены мины. Количество мин вы задаете сами в начале игры, после 
того как появится надпись КАМС [10-150]. 


Рис. 1.1. Игра МИНЫ. 
Пройти необходимо из левого нижнего угла экрана в правый верхний угол по 
любой траектории, управляя человечком с помощью следующих клавиш: 
2 - вверх, 3 - вверх и вправо, 
> - вниз, 1 - вверх и влево, 
Е - вправо, РО - вниз и вправо, 
О - влево, А - вниз и влево. 


ПРИЛОЖЕНИЕ 1. НЕСКОЛЬКО ИГРОВЫХ ПРОГРАММ 150 


В процессе игры в верхней части экрана выводится общее число пройденных 
шагов, а в нижней - количество мин в клетках вокруг человечка. 
Программа 34. МИНЫ. 
30 РОКЕ 23658, 8 
50 ЕОН №=0 ТО 23 
60 НЕАО 5 
70 РОКЕ 058 "А"+№, 5 
80 МЕХТ М 
90 ВАТА 56, 56, 16, 254, 56,56, 40,40 
100 БАТА 129, 90, 36,90, 90, 36, 90, 129 
ОАТА 170, 85, 170, 170, 170, 85, 170, 170 
115 ВОВОЕН 1: РАРЕН 1: ТМК 6: (15 


"УЖЖХЖЖАХЖЖАХЖЖАХЖЖХХ 


"УЖЖХЖЖАХЖЖАХЖЖАХЖЖХХ 


АТМТ АТ 5,11; ПМК 3. МТМ” 

ЕТ А$="РАЕЗЗ АМУ КЕУ ТО СОМТТМИЕ” 
ЕТ (=2 

ОН №=1 ТО 25 

Е ТМКЕУ$<>"" ТНЕМ 60 ТО 250 

- 

Е 


Т С=0+1: ТЕ (0>7 ТНЕМ ЕЕТ 0=2 
ТМТ АТ 18, №+2; ТМК С; АЗ (М ТО №) 


ТМКЕУ$="" ТНЕМ 60 ТО 200 
[5 

РОТ АТ 13, 0; АТ 0, 8; "ВАМ (10-150):”; МТМ 
270 ТЕ МГ\<10 ОВ МТ№150 ТНЕМ 60 ТО 250 


280 РАТМТ АТ 11, 10; ТМК 6; "РЕЕАЗЕ МАТТ!” 

300 РОН №=1 ТО МТМ 

310 ТЕТ \У=ТАМТ (В№»18+1) 

320 ТЕТ Н=ТМТ (В№»30+1) 

330 ТЕ Р(Н, \)=1 ТНЕМ 60 ТО 310 

340 ТЕТ Р(Н, \)=1 

350 МЕХТ 

355 ЕТ Р(1, 18)=0: ЕЕТ Р(30,1)=0 

360 РОН №=1 ТО 18 

370 РАТАТ АГ №,2; ТАК 4; РАРЕВ 0; "ССОО ССоССссСоссссссссссс” 
380 МЕХТ 

390 ТЕТ $А=0: ЕТ Х=1: ЕЕТ \=18: ЕТ Х1=Х: ЕЕТ У1=\ 
400 РАТАТ АТ 1,31; ТАК 6; "С" 

410 ТЕ Т№МКЕУ$="2” ТНЕМ ГЕТ У=\-1: 60 ТО 500 

415 ТЕ Т\КЕУ$="5” ТНЕМ ЁЕТ \=\+1: 60 ТО 500 

420 ТЕ Т№МКЕУ$="0” ТНЕМ ЁЕТ Х=Х-1: 60 ТО 500 

425 ТЕ ТАМКЕУ$="Е” ТНЕМ ЁЕТ Х=Х+1: 60 ТО 500 

430 ТЕ Т№МКЕУ$="1” ТНЕМ ЕТ Х=Х-1: ЕТ У=У-1: 60 ТО 500 
435 ТЕ ТАМКЕУ$="3” ТНЕМ ЁЕТ Х=Х+1: 1ЕТ У=У-1: 60 ТО 500 
440 ТЕ ТАМКЕУ$="0” ТНЕМ ЕТ Х=Х+1: 1ЕТ \=\+1: 60 ТО 500 
445 ТЕ ТАМКЕУ$="А” ТНЕМ ЕТ Х=Х-1: ЕТ \=\+1: 60 ТО 500 
450 60 ТО 510 


500 ТЕТ 5А=ЗА+1: РАТМТ АТ 0, 14; ТМК 7; РАРЕВ 1; "ЗНА@: ";ЗА:ВЕЕР 0.01, -5 
502 ТЕ Х>30 ОН Х<1 ОВ У>18 ОН \У<1 ТНЕМ (ЕТ Х=Х1: ЕЕТ \=\1:60 ТО 410 

505 РВТМТ АТ \1,Х1+1; ТМК 1; РАРЕВ 4; "С" 
510 ТЕ Х>30 ОН Х<1 ОН \У>18 ОН \<1 ТНЕМ ЕТ Х=Х1: ЕТ У=У1:60 ТО 410 
512 ЕТ КОЕ=0 
515 ТЕ Х>1 ТНЕМ ТЕ Р(Х-1,У)=1 ТНЕМ ТЕТ КОЕ=КОГ+1 
520 ТЕ Х<30 ТНЕМ ТЕ Р(Х+1,У)=1 ТНЕМ ЕЕТ КОГ=КОЕ+1 
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525 ТЕ \У>1 ТНЕМ ТЕ Р(Х,У-1)=1 ТНЕМ ТЕТ КОЕ=КОГ+1 

530 ТЕ \<18 ТНЕМ ТЕ Р(Х, \+1)=1 ТНЕМ ЕЕТ КОГ=КОЕ+1 

535 ТЕ Х>1 ТНЕМ ТЕ У>1 ТНЕМ ТЕ Р(Х-1,У-1)=1 ТНЕМ ТЕТ КОЕ=КОГ+1 

540 ТЕ Х<30 ТНЕМ ТЕ У>1 ТНЕМ ТЕ Р(Х+1,У-1)=1 ТНЕМ ЕТ КОЕ=КОЕ+1 

545 ТЕ Х<30 ТНЕМ ТЕ У<18 ТНЕМ ТЕ Р(Х+1, У+1)=1 ТНЕМ ЕТ КОЕ= КОЕ+1 

550 ТЕ Х>1 ТНЕМ ТЕ \У<18 ТНЕМ ТЕ Р(Х-1 Ви 1 ТНЕМ ГЕТ КОЕ=КОЕ+1 

570 ТЕ КО!<>0 ТНЕМ РАТМТ АТ 21, 10; ТАК 2; “ВАБОМ ",КОГ;” МТМ |": 60 ТО 590 
580 РАТМТ АТ 21,0; ' ‚ПИПППППЛАПЛАЛАЛА Л“ 

590 РАТМТ АТ \,Х+1; ТМК 2; РАРЕН 5; "А" 

600 ТЕ Р(Х, У) = 1 ТНЕН 60 то 650 

605 ЕЕТ Х1=Х: ЕЕТ \1=У 
610 ТЕ Х=30 АКБ \У=1 ТНЕМ 60 ТО 1000 

615 60 ТО 410 

620 ВЕМ ------------------ 

650 РОН №=0 ТО 7 

655 ВЕЕР 0.01,-10: ВЕЕР 0.01,-10: ВЕЕР 0.01, -1:ВЕЕР 0.01, 10 
660 РАУЗЕ 10: ВОВОЕЯ № 


700 РОВ №=1 ТО 30 

710 РОВ М=1 ТО 18 

720 ТЕ Р(М,М)=1 ТНЕМ РЕАТМТ АТ М, №+1; РАРЕВ 0; ТМК 3; "В" 
730 МЕХТ М 

740 МЕХТ № 


750 РАЦЗЕ 500 

755 РАРЕН 0: ВАТСНТ 1 

760 РОН №=0 ТО 10 

710 РЕТАТ АТ №,0; ТМК 1; "ПАПАППППППППИСАМЕ ” 
780 РЕТМТ АТ 20-№, 18; ТМК 2; "ОУЕВПППППППИПИ” 
790 РАЦЗЕ 5: ВЕЕР 0.01, №»3 


830 РАТМТ АТ М, 13; "ППППППППАААЛАЛАЛАЛИ” 

840 РАТМТ АТ 20-№, 0; "ППППАПАААПАПППАЛЛИО” 

850 РАЦЗЕ 5: ВЕЕР 0.01, 30-М№*3 

860 МЕХТ М 

870 РВТМТ АТ 21, 0; "ППППППЛЛПЛЛАЛАААЛАПААППППППППЛЛИ” 
880 РОН М=1 ТО 5 

890 РОН №=1 ТО 7 

900 РВАТАТ АТ 10, 13; ТМК М; "САМЕ О\УЕВ” 

910 ВЕЕР 0.01, В№О*40 

920 МЕХТ №: МЕХТ М 


1000 РОН №=1 ТО 15 

1010 РОН М=1 ТО 18 

1020 ТЕ Р(М,М)=1 ТНЕМ РАТМТ АТ М, №+1; ТМК 3; РАРЕН 0; "В" 
1030 ТЕ Р(31-М№,М)=1 ТНЕМ РАТАТ АТ М, 32- №; ТАК 3; РАРЕН 0; “В” 
1040 МЕХТ М 

1050 МЕХТ № 

1060 РАЦЗЕ 0 

1070 60 ТО 115 


ЛИСЫ 

Охота на лис - это логическая игра, название которой дала игра 
радиолюбительская, заключающаяся в том, что спортсмены с радиоприемниками 
передвигаются по пересеченной местности, пытаясь «засечь» и найти спрятанные 
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передатчики («лисы») и получая за это определенные очки. 


РИС. П.2. Игра ЛИСЫ. 

Цель нашей игры - обнаружить и уничтожить пятерых «лис», спрятанных на 
поле размером 9х9 клеток. Играющий может просматривать клетки поля, вводя два 
числа, Х и У, где Х номер клетки по горизонтали, а У - номер клетки по вертикали. 
Номера клеток проставлены слева и сверху поля. После ввода координат клетки на 
поле в заданном месте загорается число. Это число показывает, сколько «лис» 
находится на одной линии с этой точкой, считая по горизонтали, вертикали и двум 
диагоналям вместе. Например, если на одной прямой по горизонтали (вертикали, 
диагонали) с вашей точкой есть три «лисы», то в этой клетке загорится число 3. 
Другой пример. Пусть на горизонтали У =5 имеется 2 «лисы», на вертикали Х =3 
есть одна «лиса» и на диагоналях, проходящей через точку Х =3, У=5 также есть 
одна «лиса». Если теперь ввести эти координаты, то вы увидите в соответствующей 
клетке поля число 4. 

Выстрел за выстрелом, на поле будут появляться числа, на основании которых 
можно вычислить положения всех «лис». Побеждает тот, кто за меньшее 
количество выстрелов обнаружит 5 «лис». Для выхода из игры необходимо вместо 
координат ввести два нуля, то есть Х = 0, У=0. 

Программа 35. ЛИСЫ. 


г 


ВОВОЕН 0: РАРЕН 0: ТМК 5 
ОМЕН 0: РЕАЗН 0: ВАТЕНТ 0 


то 


г 


г 


60 508 6100 
60 ИВ 7000 
ЕТ НОО=50: ТЕТ ВЕ=50 
0 50В 5000 


> мм 
сл < № > < хм <> 


АПЗЕ 30 

ТМ М$(3, 22) 

55 ЕТ Е=0 

60 ГЕТ М$(1)="ПППИППЗТААТ САМЕ” 
62 ГЕТ М$(2)="ПППИПЗАМЕ ргодгам” 
64 ГЕТ М$(3)="ПППППОУТТ РВОСВАМ” 


70 РАТАТ АТ 2,5; ТАК 3; "***"; ТАК 6;” НИМТТА@ ТНЕ РОХ “; ТАК 3; "***” 
72 ТАК 1: РИОТ 39,59: БВАИ 0,64: ОВАМ 177,0: ОВАМ 0, -64:ОВАМ -177,0 
75 КЗ 

80 РОН №=1 ТО З 

90 РЕТМТ АТ №2+6, 5; М$(№) 

100 МЕХТ № 


102 РАРЕН 1: ТАК 5: РВТМТ АТ 18, 13; "ПППППП”: РАТМТ АТ 18,15 ;ВЕ: РАРЕВ 0 
103 РВТМТ АТ 16, 13; ТМК 2; "гесога” 

105 РЕТМТ АТ 8,5; РАРЕН 1; М$(1) 

107 РВТМТ АТ 20,0; ТМК 4; "б-д0мп, 7-ир, ЕМТЕН-$ТагЕ” 

110 ТЕТ №=1 

120 ТЕТ №0=№ 

130 ТЕТ а=СОбЕ ТМКЕУ$ 
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135 ТЕ ТМКЕУ$="6” ТНЕМ ЕЕТ №=№+1: 60 ТО 160 

140 ТЕ ТМКЕУ$="7" ТНЕМ ЕЕТ №=№-1: 60 ТО 160 

145 ТЕ а=13 ОН ТМКЕУ$="0”" ТНЕМ 60 ТО 210 

150 60 ТО 130 

160 ТЕ №=0 ТНЕМ ТЕТ №=3 

170 ТЕ №=4 ТНЕМ ТЕТ №=1 

180 РАТМТ АТ №+2+6,5; РАРЕВ 1; М$ (№) 

190 РАТМТ АТ №0*2+6,5; РАРЕВ 0; М$ (№0) 

195 ВЕЕР 0.01,20: РОВ №=1 ТО 40: МЕХТ № 

200 60 ТО 120 

210 ВЕЕР 0.05,0 

215 ТЕ №=1 ТНЕМ 60 ТО 250 

220 ТЕ №=2 ТНЕМ 60 ТО 5800 

230 ТЕ №=3 ТНЕМ 60 ТО 6000 

240 ВЕМ ------ ОТАВТ бАМЕ---- 

250 ОТМ Р$(9,9) 

255 ЕЕТ НОО=0: ТЕТ РВОМ=0: 
ЕТ РОР=0 


{ 55 © 


5 

АМ0*+9+1) 

АМ№0*9+1) 

`[” ТНЕМ 60 ТО 300 
= 


Е 
м = < >= 


© >< 
= 


Я №=12 ТО 156 5ТЕР 16 
410 РОТ М, 163: ОВАМ 0, -144 


— 
>> 
(2) 
СТА 
> Г 


— 

(9%) 

(=>) 

Щ] 

> м1 Г 
>< 
— 
= 


В №=163 ТО 15 ЗТЕР -16 
440 РОТ 12,№: ОВАМ 144,0 


490 РНАТМТ АТ 0,2; "12345678 9" 
Т 


(<=>) 


86,0: ОВАМ 0, -140: ОВАМ -86,0: ОВАМ 0, 14 
493 ТМК 
РАТМТ АТ 14, 21; "ЕАЗТ $НОТ” 


(9%) 


В 
502 (ЕТ Х=0: ЕЕТ \У=0 
ГЕТ Х1=Х: ЕЕТ У1=\: 60 508 2000 
511 ТМРИТ "Х="; Хх, "У=”; У 
514 ТЕ Х=0 АКБ У=0 ТНЕМ 60 $08 5000: @0 ТО 45 
515 ТЕ Х<1 ОН Х>9 ОВ \<1 ОН \>9 ТНЕМ ВЕЕР 0.5, -23: 60 ТО 511 
520 ТЕТ НОб=НОО+1 
ГЕТ КОЕ=0 
ТЕ Р$(Х,У)="[” ТНЕМ 60 ТО 1000 
ЕМ ----1---- 
ОН №=1 ТО 9 
ТЕ Р$(М,У)="[” ТНЕМ ЕЕТ КОЕ=КОЕ+1 


чт => 


сл 
(Фр) 
оо ооо о 


ТЕ Р$(Х, №)="[” ТНЕМ ЕЕТ КО=КОЕ+1 
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492 РЕОТ 163, 163: ОНАМ 90,0: ОВАМ 0, -144: ОНАМ -90,0: ОНАМ 0, 144: РЕОТ 165, 161: ОВАМ 


: РЕТМТ АТ 3, 23; "5НОТЗ:": РАТМТ АТ 8, 24; "НТТ$:": РАТАТ АТ 13,22; "Х апа У”: 
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610 МЕХТ № 


670 ЕЕТ М=М-1 

675 ТЕ №1 ОВ М<1 ТНЕМ 60 ТО 700 

680 ТЕ Р$(М, М)="[” ТНЕМ ЕЕТ КОЕ=КО+1 
690 60 ТО 650 

700 ТЕТ М=Х: (ЕТ М=У 

710 ТЕТ М=№+1: (ЕТ М=М+1 

720 ТЕ №9 ОВ М>9 ТНЕМ 60 ТО 750 

730 ТЕ Р$(М,М)="[” ТНЕМ ЕЕТ КОЕ=КО+1 


750 ТЕТ М=Х: (ЕТ М=У 

760 ТЕТ М=№-1: ЕТ М=М+1 

770 ТЕ №1 ОВ М>9 ТНЕМ 60 ТО 800 

780 ТЕ Р$(М, М)="[” ТНЕМ ЕЕТ КОЕ=КОи+1 
790 60 То 760 
800 (ЕТ №=Х: ЕЕТ М=У 

810 ГЕТ №М=№+1: ЕЕТ М=М-1 

820 ТЕ №9 ОА М<т ‚ТНЕМ 60 ТО 850 

830 ТЕ Р$(М,М)="ЁЕ” ТНЕМ ГЕТ КО=КОЕ+1 


840 60 ТО 810 

850 60 508 1050 

860 60 ТО 510 

1000 ВЕМ --Р.Р. РАТМТ ЕОХ- 

1010 РЕТМТ АТ У»2,Х*2; ВВТОНТ 1; ТАК 2; "А 

1015 РОВ п=1 ТО 2: РОВ п=20 ТО 0 ЗТЕР -5: ВЕЕР 0.03, п: РАУЗЕ 1: МЕХТ п: РОН п=0 ТО 20 
ЗТЕР 5: ВЕЕР 0.03, п: РАЦЗЕ 1: МЕХТ п: МЕХТ м 

1020 ГЕТ РОР=РОР+1 

1025 60 508 2000 

1030 ТЕ РОР>=5 ТНЕМ 60 508 3000: 60 $08 5000: 60 ТО 45 
1040 60 ТО 510 

1050 ВЕМ --Р.Р. РАТМТ -- 

1060 ТМК 4: ВВТОНТ 1: РАТМТ АТ У*2, Х*2; КОЕ 

1065 ВВТЕНТ 0: ВЕЕР 0.06, -5 

1070 ВЕТИНМ 


2000 ВЕМ ----Р.Р. РВТМТ 

2010 РАРЕВ 1: ТМК 4: РАТАТ АТ 5, 25; НОО 

2020 РАТМТ АТ 10, 25; РОР 

2030 РАТМТ АТ 17, 22; "П= и=”: РАТАТ АТ 17, 24;Х1: РВТМТ АТ 17, 29; У1 
2035 РАРЕВ 0 


3000 ВЕМ ----КОМЕС---- 

3010 РОН М=1 ТО 100: МЕХТ п 

3020 РВТАТ АТ 21,0; Т№К 2; ВВТСНТ 1;” ВВВВВВВВВВВВВ “;ВАТСНТ 0; ТМК 4; НОО; ВВТЕНТ 1; 
ТАК 2; ” ВВВВВВВВВВВВВ” ВАТСНТ 0 

3030 РАЦЗЕ 0 

3035 ТЕ ВЕ>НОО ТНЕМ ЕЕТ ВЕ=НОО 


3040 ВЕТИВМ 

5000 ВЕМ ---- Газтамка ---- 
5002 ЕТ П09=50 

5005 (1$ 


5010 ОТМ 1$(9, 32) 

5020 1ЕТ 1$(1)="ППАЛППВВВ ВПППАВППВВВВАПВПИПППИВ” 
5022 ЕЕТ ($(2)="ПППАПВАПВ ВПАППВ ВППППВ ВППППППВ” 
5024 1ЕТ 1$(3)="ППАЛВПАЛВ ВПППАВ ВАПППАЛВПАПППЛВ” 
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5026 
5028 
5030 
5032 
5034 
5036 
5040 
5045 
5050 
5060 
5070 
5075 
5077 
5080 
5185 
5190 
5200 
5210 
5220 
225 
5230 
5240 
5245 
5250 
5260 
5265 
5270 
И 
5280 
5290 
5499 
5500 
5510 


[ЕТ 1$(4)="ПППВПППИВ ВПППВВ ВПППППИВВВВВППВ” 
ГЕТ [$(5)="ПААВЛЛЛЛВ ВППВ В ВПИППППВЛПППВ В” 
ГЕТ [$(6)="ППЛВЛАПЛВ В ВППВ ВПИППППВЛПППВ В” 
[ЕТ 1$(7)="ПППВПППИВ ВВПППВ ВПППППАВЛПППВ В” 
ГЕТ [$(8)="ПАВПЛЛЛЛВ ВПИППВ ВППППВ ВППППВ В” 
ГЕТ [$(9)="ВВАПЛАПЛВ ВПИППВПИВВВВППВВВВВЛПВ” 
ВВТОНТ 1 
РОН №=32 ТО 0 $ТЕР -1 
РОН М=9 ТО 1 $ТЕР -1 
РАТМТ АТ М+6,0; ТМК 2;1$(М) (№1 ТО 32) 
ЕХТ М 
ВЕЕР 0.003, 20 
ТЕ ТМКЕУ$<>"" ТНЕМ ВАТОНТ 0: ВЕТОВМ 
ЕХТ № 
ВВТОНТ 0 
ЕТ В$="ЗАМКТ-РЕТЕНВИВВ": [ЕТ УК=0: [ЕТ ХК=8: ЕТ СК=5 : 
[ЕТ В$="1993"; ЕТ УК=2: [ЕТ ХК=13: 1ЕТ СК=4:60 ИВ 5500 
ЕТ В$="АИТНОВ:К. Тдог”: [ЕТ УК=4: ЕТ ХК=9: ЕТ СК=6:60 
[ЕТ В$="Ргез$ апу Кеу То соп1пие”: [ЕТ УК=20:1ЕТ ХК=З : 
ЕТ Р=0 
ВЕМ ---------------- 
ЕТ С=ТМТ (В№*6+1) 
ЕТ В=ТАТ <В№О»1. 1> 
ЕТ У=ТМТ (В№0*9+1) 
ЕТ Х=ТМТ (В№*32+1) 
ТЕ 1$(\,Х)=" " ТНЕМ 60 ТО 5250 
РАТМТ АТ \+6,Х-1; ВВТОНТ В; ТМК С; Е$(У,Х) 
ЕТ Р=Р+1 
ТЕ Т\КЕУ$<"" ОН Р>2000 ТНЕМ ВЕТОВМ 
60 ТО 5240 
УТОР 
ВЕМ ---- В. КМАОВАТ ---- 
ЕТ 5=[ ЕК В$ 
РОН №=1 ТО 5 
ГЕТ С$=В$(№ ТО №) 
РАТМТ АТ УК, ХК+№; ТМК СК; $; РАРЕВ 3; ' 
ВЕЕР 0.03, 10 
ЕХТ № 
РАТМТ АТ УК, №+ХК 
РАЦЗЕ 15 
ВЕТОВМ 
ВЕМ ----сА\Е РЕОСВАМ---- 
(1$ 
РВТМТ АТ 9,1; ТМК 5; "ЗАУЕ ргодгам НИМТТМ@ ТНЕ РОХ” 
ЗАМЕ "РОХЕЗ” [ТМЕ 10 
РАЦЗЕ 30 
60 ТО 45 
ВЕМ --МУНОВ Т7 РВОСВАМУ-- 
ВОВОЕВ 1: РАРЕВ 1: ТМК 5 
(1$ 
ЗТОР 
ВЕМ -- Сгарр1с$ ------ 
РОН №=0 ТО 15 
ВЕАО $ 
РОКЕ Ц5В “А"+М, $ 
МЕХТ № 
ВЕТОВМ 
ВАТА 2, 30, 46, 254. 30, 127, 15, 15 
БАТА 124,222, 158, 254, 254, 254, 124,0 
АЕМ ----ВЕЕР---- 
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60 508 5510 


ЗИВ 5510 
ГЕТ СК=7: 60 $08 5510 
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ОТО ВЕЕР’ 0.1. 0 ВЕЕР 6. 5: ВЕЕР 0.1, 10: ВЕЕР О, В ВЕЕР 0:1, 20 
7020 ВЕТИВМ 


МАКСИТ 
Начнем с того, что запишем на ленту маленькую программу-загрузчик: 
10 1ОАО “"СОБЕ 16384 20 [АВ “” 

В этой программе строка 10 загружает в экранную область памяти (с адреса 
16384) картинку-заставку, а строка 20 - игровую программу МАКСИТ. Таким 
образом, после программы-загрузчика на ленте должен располагаться созданный 
вами ранее (см. главу 2) экранный файл, а вслед за ним - программа МАКСИТ, 
текст которой приводится ниже. 

После загрузки игры на экране появляется поле в виде таблицы чисел 8х8 
клеток и курсор в левом нижнем углу. 


Рис. П.З. Игра МАКСИТ. 

Каждое число задается программой случайным образом, но в пределах от 0 до 9. 
Справа от игрового поля выводятся имена играющих и набранные каждым из них 
очки. Играющие по очереди выбирают числа, причем выбранное число удаляется с 
игрового поля и прибавляется к счету играющего. Побеждает тот, кто набрал к 
концу игры большее количество очков. 

Первый играющий может перемещать курсор только по горизонтали, выбирая 
любое число в строке. Его партнер может перемещать курсор только по вертикали 
и должен выбрать одно из чисел в столбце, отмеченном курсором. Можно играть, 
задав ограниченное время размышления над каждым ходом, для этого пригодится 
«секундомер», показывающий общее время игры (он расположен справа в нижней 
части экрана). 

Программа 36. МАКСИТ. 
10 РОКЕ 23658, 8 
15 ОТМ 9$(2,10): 01М 1$(8, 10): БТМ 0(8): 01М к$(6) 
20 60 $08 9050 


30 (ЕТ Ко1=1 

40 РАРЕВ 0: ТАК 3: ОМЕВ 0: РЕАЗН 0: ВАТЕНТ 0: ВОВОЕН 0 
50 (15$ 

60 (ЕТ м$="": [ЕТ м$=""; 1ЕТ 1=0 

70 ГЕТ мх=12: [ЕТ му=18 

100 (ЕТ с=6: 60 508 9000 

110 РНАТМТ АТ 0,0; "я*ххххххх хх ПЛМАКУТ ТПП яж яжжяжяжях 
115 РАТМТ #0: АТ 1,0; ТМК 7-Ко]' “яхжжжяжяжяжжяя жж жях 
120 ВЕЗТОВЕ 9910: 60 508 9600 

130 (ЕТ х$="ОЕЕ”: ТЕ Ко]1=1 ТНЕМ 1ЕТ х$="0№" 

140 РВЕТМТ АТ гом+7, со1+11; ТАК 8; РАРЕВ 8;х$ 

160 ТЕТ с=3: 60 508 9000 

170 ТЕ Т\КЕУ$="1” ТНЕМ 60 50В 9120: 60 ТО 1000 

171 ТЕ Т\КЕУ$="2” ТНЕМ 60 50В 9120: 60 ТО 200 
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172 ТЕ ТМКЕУ$="3” ТНЕМ 60 50В 9120: 60 $08 400: РАЦЗЕ 0: 60 ТО 100 
173 ТЕ ТМКЕУ$="4" АКО Ко1=1 ТНЕМ 60 $0В 9120: ЕЕТ Ко1=0: 60 ТО 50 
174 ТЕ ТМКЕУ$="4” АКМО Ко1=0 ТНЕМ 60 $0В 9120: (ЕТ Ко1=1: 60 ТО 50 
175 ТЕ ТМКЕУ$="6” ТНЕМ 60 50В 9120: $ТОР 

176 ТЕ ТМКЕУ$="5” ТНЕМ 60 50В 9120: 60 ТО 700 

180 60 508 9500 

190 60 ТО 170 

200 ВЕМ ----ОЕРТМЕ КЕУЗ---- 

210 ВЕЗТОВЕ 9920: 60 $08 9600 

215 ЕТ р=3 

220 ЕОН м=1 ТО 6 


230 РАЦЗЕ 0: ТЕТ 0$=ТМКЕУ$ 
240 ТЕ т=1 ТНЕМ 60 ТО 270 
250 ЕОВ п=1 ТО м-1: ТЕ 0$=К$(п) ТНЕМ 60 ТО 230 


270 ТЕ 6$<" " АМО С00Е 6$<>13 ТНЕМ 60 ТО 230 


290 ТЕ 6$=” " ТНЕМ 1ЕТ 6$="ЗРАСЕ” 
300 ТЕ СОБЕ 6$=13 ТНЕМ ЕЕТ 0$="ЕМТЕВ” 


РЕТМТ АТ (М-1)*2+гом+р, со1+12; ТАК 8; РАРЕВ 8, 0$ 
МЕХТ м 

60 ТО 100 
ВЕМ ---- НТ 5СОВЕ ---- 

АЕЗТОВЕ 9930: 60 $08 9600 

РАТМТ АТ 6,8; РАРЕВ 8; ТМК 8; "М1 ";{$(1);ТАВ 22;0(1) 
ГЕТ с=6: 60 508 9000 

РОВ п=2 ТО 8 
Р 
м 
и 
Т 
Т 


| —- 
ух <> + 
ооо 


- № № 


— 
> 
сл 


ВТМТ АТ п*2+4,8; РАРЕН 8; Т№К 8; "№": п: ” ";{$(п); ТАВ 22: 0(п) 
ЕХТ п 

ЕТ сс=0 

Е Ко1=0 ТНЕМ РАПЗЕ 3: ВЕТУНМ 

Е сс>4 ТНЕМ [ЕТ сс=0 

ТМК сс: (ЕТ сс=сс+1 

РВТМТ АТ гом-+1, со1+7: РАРЕВ 8; "НТ 5СОВЕ" 

ТМКЕУ$=”” АМО 1=0 ТНЕМ 60 ТО 470 

485 60 508 9120 
490 ВЕТИВМ 

700 ВЕМ -- 5ЕТ Т1МЕ --- 

710 ВЕЗТОВЕ 9940: 60 508 9600 

720 ГЕТ с$=”".: РАТМТ АТ гом+1, со1+14: 

730 РОН п=1 Т0 6 

740 РАЦЗЕ 0: ЕЕТ 0$=Т№КЕУ$ 

750 ТЕ 6$<"0” ОН 6$>"9” ТНЕМ 60 ТО 740 

760 ЕТ с$=с$+0$ 

770 РАТМТ РАРЕВ 8: ТМК 8:0$: 

780 ТЕ п=2 ОВ п=4 ТНЕМ РАТМТ РАРЕН 8: ТМК 8;":"; 
785 60 508 9120 
790 МЕХТ п 
800 ТЕТ сИ=\УАЕ с$( ТО 2) 
820 ТЕТ и1и=\МАЕ с$(3 ТО 4) 
830 1ЕТ $=\/АЁ с$(5 ТО) 
840 ТЕ сп>24 ОВ т1п>60 ОВ $>60 ТНЕМ @0 ТО 700 

850 ТЕТ 111=(сй*3600+11п*60+$)*50 

860 РОКЕ 23674, ТМТ (11п/65536): ТЕТ 111=Е1т-РЕЕК 23674*65536 
870 РОКЕ 23673, 1МТ (111/256): ЕЕТ +1м=11и-РЕЕК 23673*256 

880 РОКЕ 23672, 1МТ 11 
890 60 ТО 100 


— г 
Фа] 
|=) 


> 


—> 


ы- > 
Яо м 
лом м 


Ч 
[2 
> 
+ 
У 
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1000 ВЕМ ---- ЗТАНТ САМЕ ---- 


1001 РОВ №=1 ТО 24: ВАМООМТУЕ 158 3582: ВЕЕР .02,№: МЕХТ № 
1005 ГЕТ мх=20: 1ЕТ му=16 

1010 (1$ 

1020 60 508 9300 

1030 (1$ 

1040 ОТМ 7(8,8) 

1050 РОВ п=1 ТО 8 

1060 РОВ п=1 ТО 8 

1070 ЕТ 7(т, п)=ТМТ (В№0*10) 

1075 РАТМТ АТ п*2, п*2; 2(т, п) 


1080 МЕХТ 
1090 МЕХТ п 

1095 ТЕТ с=6: 60 508 9000 
1100 РОВ п=163 ТО 35 $ТЕР -16 
1110 РЕОТ 12, п: ОВАМ 128,0 
1120 МЕХТ п 
1130 РОН п=12 ТО 140 5ТЕР 16 
1140 РЕОТ п,35: ОВАИ 0, 128 
1150 МЕХТ п 
1151 РАРЕН (7-б»*Ко1): ТЕТ с=6: 60 508 9000 
1152 РАТМТ АТ 3, 19; "ППАППППППИ”: ВЕМ 10 ЗРАСЕ 
1153 РАТМТ АТ 8, 19; "ПППППППППП”: АЕМ 10 ЗРАСЕ 
1155 ТЕ кКо1=0 ТНЕМ ТМК 0 

1156 РАТМТ АТ 3, 19; \$ 

1157 РАТМТ АТ 8, 19; и$ 

1160 1ЕТ 7(1,8)=10 

1170 РАТМТ АТ 16,2; " 

1171 (ЕТ с=6: 60 508 9000 

1172 РЕОТ 145,35: ВВАМ 0, 128 

1174 ОВАМ 93,0: ОВАМ 0, -128 

1175 ОВАМ -93,0 

1180 1ЕТ х=1: [ЕТ у=8 

1190 ТЕТ х1=х: ГЕТ у1=у 

1200 ГЕТ р1=1 

1220 ОТМ и(2) 

1300 ВЕМ ---- 

1310 ТЕТ с=6: 60 508 9000 


1320 РАРЕВ Ко1 
1330 РАТМТ АТ у*2,х*2; ЕБАВН 1; ОМЕВ 1;" " 

1335 ТЕ р1=2 ТНЕМ 60 ТО 1360 

1340 ТЕ ТМКЕУ$=К$(1) ТНЕМ (ЕТ х=х-1: 60 ТО 1400 

1350 ТЕ ТМКЕУ$=К$(2) ТНЕМ ЕТ х=Х+1: 60 ТО 1400 

1352 ТЕ ТАКЕУ$=К$<5> ТНЕМ 60 ТО 1750 

1354 ТЕ ТАКЕУ$=К$(6) ТНЕМ 60 ТО 1500 

1355 60 ИВ 9500 

1356 60 ТО 1340 

1360 ТЕ ТМКЕУ$=К$(3) ТНЕМ (ЕТ у=у-1: 60 ТО 1400 

1365 ТЕ ТМКЕУ$=К$(4) ТНЕМ (ЕТ у=у+1: 60 ТО 1400 

1370 ТЕ ТМКЕУ$=К$(5) ТНЕМ 60 ТО 1750 

1375 ТЕ ТМКЕУ$=К$(6) ТНЕМ 60 ТО 1500 

1377 60 $08 9500 

1380 60 ТО 1360 

ее 

1400 ВЕЕР .0007, 57 

1405 60 ЗИВ 9500 

1406 ТЕ х<1 ОВ х>8 ОВ у<1 ОВ у>8 ТНЕМ (ЕТ х=х1: ЕЕТ у=у1:60 ТО 1335 
1430 РАРЕВ 0: 1ЕТ с=5: 60 $08 9000 


1440 РАТМТ АТ уУ1*2, х1*2; ОМЕН 1;” " 
1450 1ЕТ х1=х: ГЕТ У1=у 
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1460 60 ТО 1310 

1500 ВЕМ ------------ 

1505 ВЕЕР .0006,55: ВЕЕР .0007, 30 

1510 ТЕ 7(х,у)=10 ТНЕМ 60 ТО 1400 

РАТМТ АТ у»2,х*2; ЕШГАЗН 1;" " 

ТЕ р1=1 ТНЕМ ЕТ и(1)=и(1)+7(х,у): ЕТ р1=2: 60 ТО 1600 
ГЕТ и(2)=и(2)+7(х,у): ЕТ р1=1 

ГЕТ 7(х,у)=10 

ГЕТ епд=1 
ОА п=1 Т0 8 

ТЕ р1=1 ТНЕМ ТЕ 7(п,у)<>10 ТНЕМ ЕЕТ епд=0: 60 ТО 1640 
ТЕ р1=2 ТНЕМ ТЕ 7(х,п)<>10 ТНЕМ (ЕТ епд=0 


го 


г 
©> © сл © © 
> © + №№ 


го 


Г 
(Фр) 

А 
п 


го 


го 
© ©> © 
- <> > 
(=>) 


го 


го 


ТМК 7: РАРЕВ 0 

ТЕ р1=1 ТНЕМ ТМУЕВУЕ 1 

1705 РАТМТ АТ 5, 23: и(1): Т№МУЕНЗЕ 0 

1707 ТЕ р1=2 ТНЕМ ТМУЕАЗЕ 1 

1710 РАТМТ АТ 10, 23:и(2) 

1715 ТМУЕНЗЕ 0 

1720 ТЕ епд=0 ТНЕМ 60 ТО 1400 

РАРЕН 0 

РАТМТ АТ у*2, х*2; "" 

ВЕМ ---- 5СОВЕ ---- 

$(1)=у$: ЕТ 9$(2)=и$ 

=1: 60 508 400 

=1 102 

<0(8) ТНЕМ 60 ТО 1860 

=8: РОВ п=1 ТО 8 
>0(п) ТНЕМ (ЕТ ]=п: 60 ТО 1820 


го 


го 
Я >> 
> 
=> 


РОВ п=8 ТО 1+1 ТЕР -1 
ГЕТ о(п)=0(п-1): (ЕТ 1$(п)=$(п-1) 


=и(т) 


ЕТ 1$(71)=9$(т): ЕЕТ 0(] 
.1,0: 60 58 400 


1855 РАЦЗЕ 100: ВЕЕР 


1865 РАЦЗЕ 100 
1870 60 ТО 40 
9000 ВЕМ ---- со1ог ---- 

9010 ТЕ Ко1=1 ТНЕМ ТМК с: ВЕТИВМ 
9020 ТМК 7 

9030 ВЕТИВМ 

9050 ВЕМ .---- ОМ ВАТА ---- 
9060 ВЕЗТОВЕ 9110 

9070 ВЕАВ 1$(1),0(1) 

9080 РОН п=1 ТО 6 

9090 НЕАБ К$(п) 


П 
9100 РОВ п=2 ТО 8: ТЕТ о(п)=0: ЕЕТ 1$(п)=”.......... “:МЕХТ п 
105 ВЕТИАМ 
110, ВАТА. “Тоог_ К. ".200, 10’, РУО ЛАТ ТЕУМ 
120 ВЕМ ---- ВЕЕР 1 ---- 


«= << <<<) 

\ 
© 
<> 
с5 
[а 

|) 

>> 

<> 

со 

[© 

> 

Ск. а 


аа ЕЕ авы 


:% 
<> 
<> 
25 
[Ш 
т гп п! 
== 
— 


<о © 
№ 
р У 
че ЧАР 
сэ ©5 
Г Г 
Г т 
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> <> 
>> <> 
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—щ- 
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9540 


ВЕЕР .0009, 45 

АЕТОВМ 

ВЕМ ---- У0У МАМЕ ---- 

РОН п=1 ТО 2 

ЕТ с=6: 60 508 9000 

АТАТ АТ 8, 13; "РЕУЕВ ^;п 

РАТМТ АТ 10, 9; "ЕМТЕВ УОУ МАМЕ: ” 
Е 

А 


<> 


Т с=2: 60 508 9000 
РАТМТ АТ 12, 10; ">ПППППППППИ<” 
ТК 7 


ГЕТ с=5. @0 508 9000 

РОВ п=1 ТО 10 

РАЦЗЕ 0: [ЕТ 6$=Т№КЕУ$ 

ТЕ С00Е 0$=12 АМО с$<>"" ТНЕМ ЕЕТ с$=с$( ТО ЕЕК с$-1): (ЕТ м=м-2: 60 ТО 9405 
ТЕ С00Е 6$=13 ТНЕМ 60 ТО 9430 

ТЕ 6$<"” ” ОВ 0$>"7” ТНЕМ 60 ТО 9395 

СЕТ с$=с$+6$ 

0 508 9490 

РАТМТ-АТ 12:1 рана ;. 

РАТМТ АТ 12, 11; с$ 

МЕХТ 
ВЕЕР .01, 10 


ТЕ п=1 ТНЕМ ЕЕТ №$=с$: 60 ТО 9470 


НЕМ ---- ВЕЕР 3 ---- 
Р .002, 10 

ВЕЕР .003,20 
Р .004, 30 
Р .005, 40 

АЕТОВМ 

ВЕМ ---- ТТМЕ ---- 

ГЕТ {1м=(РЕЕК 23672+256*РЕЕК 23673+65536+РЕЕК 23674)/50 

ГЕТ сй=ТМТ (11/3600): ГЕТ м1п=ТМТ ((41т-сп*3600)/60): ТЕТ $=ТМТ (11т-сй*3600- 


ТЕ сй>=24 ТНЕМ РОКЕ 23672,0: РОКЕ 23673, 0:РОКЕ 23674,0: 60 ТО 9500 
РЕТМТ АТ му, мх; ТАК 8; РАРЕВ 8;("0” АМО сй<10); сп; ":”; ("0” АКБ 


1п<10); тп: ":”; ("0” АМБ 3<10);$ 


ВЕТУВК 

ВЕМ ---- МТМООМ ---- 

ВЕАО гом, со1, пот, 1еп, 1пк, рар 
РАРЕВ рар: ТМК 1пкК 

ТЕ Ко1=0 ТНЕМ РАРЕВ 7: ТМК 0 


ГЕТ х$=”"; РОН п=1 ТО 1еп: ЕТ х$=х$ф+" ": МЕХТ п 
РОН п=гом ТО гом+п9т-1 
РАТМТ АТ п, с01:х$: МЕХТ п 
ЕТ Теп1=1]еп*8-3: [ЕТ П91=109{»8-3 
РЕОТ (с01*8+1), (174-гом»8): ОВАМ 1еп1,0: ОВАМ 0, -П9Е1:ОААМ -1еп1,0: ОВАМ 0, п9т1 
ВЕАО пп: РОВ п=1 ТО пп 
ВЕАО у, х,х$: РАТМТ АТ гомчу, со1+х: х$ 
ЕХТ п 
РАРЕВ 0: ВЕТИУВМ 
ВЕМ -- ОАТА МТЮО --- 
ВАТА 5,6, 15,20,0,5 
БАТА 6 
БАТА 1,1, "1 - УТАВТ САМЕ” 


160 
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9919 ВАТА, 1, "2 = НЕВЕНШЕ КЕТЬ” 
9914 ВАТА 5,1,"”3 - НТ $СОНЕ” 
9915 ВАТА 7,1, "4 - СОЕОВ” 

9916 ВАТА 9,1,"5 - ЕТ ТТМЕ" 
9917 ВАТА 11,1, "6 - ЕМО ОЕ САМЕ" 
9920 ВАТА 4,7, 17,18,0,3 

9921 ВАТА 8 

9922 ВАТА 1, 1, "РЕАУЕВ 1” 

9923 ВАТА 3,6, "1ЕРТ:” 

9924 ВАТА 5, 5, "ВТЕНТ:" 

9925 ВАТА 7,1, "РЕАУЕВ 2" 

9926 ВАТА 9, 8, "ПР:" 

9927 ВАТА 11, 6, "ВОИМ: 

9928 ВАТА 13, 7, "ЕКО: 

9929 ВАТА 15,6, "ЕТВЕ:” 

9930 ВАТА 3, 5, 19,22,7,1 

9931 ВАТА 1 


9932 ВАТА 1,7, "НТ $СОВЕ” 


9940 ОАТА 10,3,3,26,7,2 
9941 ОАТА 1 
9942 ОАТА 1,1,"ЗЕТ Т1МЕ:” 
ПИРАМИДА 


В начале игры фишки находятся на клетках первого (нижнего) ряда игрового 
поля. Играющий имеет право выполнить один ход - по вертикали, горизонтали или 
дополнительное продвижение. 

Вертикальный ход. Его имеет право выполнить только фишка нижнего ряда. 
При этом она перемещается на одну из двух свободных клеток следующего сверху 
ряда. 

Горизонтальный ход. Фишка может перемещаться по своему ряду на любое 
количество свободных клеток. Прыгать через какие-либо фишки недопустимо. 

Дополнительные продвижения. Чтобы получить преимущество над 
соперником, необходимо создавать и использовать возможности дополнительных 
продвижений. В процессе игры три любые фишки, в том числе свои и противника, 
могут занять положение треугольником две снизу, 


ое: ©5 ое: 90? 


Рис. 1.4. Игра ПИРАМИДА. 
одна сверху. Хозяин верхней фишки после очередного хода или вместо него 
может продвинуть ее на клеточку слелдующего сверху ряда. Побеждает тот, кто, 
умело используя дополнительные продвижения, первым достигнет вершины 
пирамиды. Клавиши управления. 
В - выбор фишки. М - выбор поля для хода. М - выполнение хода. Е - конец игры. 
Программа 37. ПИРАМИДА. 


5 ВОЛОЕН 0: О\ЕВ 0: РАРЕВ 0: РЕАЗН 0: ТМК 0: (15 
7 ГЕТ рау=500 
50 РОВ п=0 ТО 63: ВЕАО 1: РОКЕ 05Н "а"+п,1: МЕХТ п 
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55 ВАТА 128, 128, 128, 128, 128, 128, 128, 128, 255, 128, 128, 128, 

128, 128, 128, 128, 255,0,0,0,0,0,0,0, 255, 255, 248, 240, 224, 192, 

ОА, 922029 Га, ние: 192 1192. 220.240.246, 2555255, 

ООО, бро 299, 0.259: 295, 9.299 

100 60 ТО 3000 

500 ВЕМ ----ЭТАВТ САМЕ------- 

505 ВОНБЕВ 0: РАРЕН 0: ТМК 0: С1$ 

510 01М а(13, 13): О1ТМ х(6): О1ТМ у(6): БТМ (6): О1М (6) 

515 01М 0(14): ОТМ р(14): ОТМ г(6): ОТМ и(6) 

520 (ЕТ с=1: ЕЕТ мг1=0: ЕЕТ мг2=0: ЁЕТ мг11=0: 1ЕТ мг12=0:1ЕТ п1=0: ЕЕТ мм2=0 


605 РОН 1=1 ТО 11: 1ЕТ 1=1+1: [ЕТ а(1,1)=2: МЕХТ 1 
610 РОН 1=1 ТО 12: (ЕТ а(1,12)=1: МЕХТ 1 
615 РОЯ 1=1 Т0 6: ЕТ и(1)=12: [ЕТ у(1)=12: 1ЕТ В(1)=1: ЕЕТ 1(1)=1+6: МЕХТ 1 
620 ВЕМ хеххжхххжжхжжжжжжжххжх 
621 ВАТЕНТ 0 
622 РОН 1=0 ТО 21: РАРЕВ 1:РАТМТ АТ 1, 0; "ПАПППЛАППППППЛАЙ”; РАРЕВ 
2; "ППАПППАПППАИИПЛЛИ”  МЕХТ 1 
625 ВАТ@НТ 0 
627 1ЕТ ]=13: ТМК 0: РАРЕВ 6 
630 РОН 1=1 то 10: (ЕТ ]=]-1: РОЯ 1=1 ТО 1+1:РАТАТ АТ 1*2-1, ]+1*2; "ВС": РАТМТ АТ 
12, ]+[*2; "А ' 
МЕХТ С: МЕХТ 1 
635 РВТМТ АТ 0, 15; “ПП” 
РАТМТ АТ 21,4; ВАТОНТ 1; РАРЕВ 1; "ВЕБЕВЕБЕБЕВЕ”, РАРЕВ 2; "ОБЕБЕБЕВЕСЕОЕ”; ВАТОНТ 0 
642 РВТМТ АТ 3,25; РАРЕВ 2; ТАК 7; ' :00: 00” 
С 


650 ВЕМ ххххжхххжжххжжжяжжжхжжх 

651 60 ТО 660 

652 РЕАЗН 0: (ЕТ х1= ее СЕТ у1=у(Р): 60 508 2800: РАТМТ АТ уу, хх; "ОЕ": ТЕ у(Р)<12 
ТНЕМ РАТАТ АТ уу+1, хх: "Еб' 

653 ВЕТИВМ 
660 ТЕТ = 
662 ВВТОНТ 1 

665 ТЕ Г>6 ТНЕМ (ЕТ 1=1 

667 РАРЕВ с: ТМК 0 

670 РЕАЗН 1: (ЕТ х1= __ ГЕТ у1=у(Г): 60 508 2800: РАТМТ АТ уу, хх; "ОЕ": ТЕ у(Р)<12 
ТНЕМ РАТАТ АТ уу+1, хх: "Еб” 


1 


675 ЕЕАЗН 0 

680 ТЕ ТМКЕУ$="6” ОВ ТМКЕУ$="В” ТНЕМ 60 $08 652: ВЕЕР 0.02,50: ТЕТ 1=1+1: @0 ТО 665 
682 ТЕ ТМКЕУ$="п” ОВ ТМКЕУ$="№М" ТНЕМ ВЕЕР 0.02,0: 60 ТО 750 

683 ТЕ ТМКЕУ$="е” ОВ ТМКЕУ$="Е” ТНЕМ 60 ТО 3000 

690 60 508 2100 

700 60 ТО 680 

150 ЕЕТ е=1 


760 ТЕ у(Г)=12 ТНЕМ 60 ТО 800 

765 ТЕ а(х(Р),у(Г)*1)=1 АКБ а(х(Р)+1, у(Р)+1)=1 ТНЕМ 60 ТО 800 
710 ЕЕТ 1=0: (ЕТ 11=у(Г) 

772 ЕЕТ 1=1+1: ТЕ 1>6 ТНЕМ 60 ТО 800 

774 ТЕ у(1)>11 ТНЕМ 60 ТО 900 


800 ТЕ х(Р)-1<=0 ТНЕМ 60 ТО 805 

801 ТЕ а(х(Т)-1,у(Р)-1)<>1 АМ а(х(Т)-1,у(Р)-1)<>2 ТНЕМ (ЕТ о(е)=х(Т)-1: (ЕТ 
р(е)=у(Р)-1: (ЕТ е=е+1 

805 ТЕ а(х(Р), у(Р)-1)<>1 АМ а(х(Р), у(Г)-1)<2 ТНЕМ 1ЕТ о(е)=х(Р): 1ЕТ р(е)=у(г)-1 
ЕТ е=е+1 

899 ВЕМ ххххжжххжжх 

900 (ЕТ К=х(Р) 

910 ТЕТ К=К+1 
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915 ТЕ К>12 ТНЕМ @0 Т0 930 
920 ТЕ а(К, у(Г))<>1 А№О а(к, у(Р))<>2 ТНЕМ 1ЕТ о(е)=К: ЕЕТ р(е)=у(Т): ЕЕТ е=е+1: @0 То 
910 
925 ВЕМ ххххжхххжх 
930 ЕТ К=х(Р) 
940 1ЕТ К=К-1 
945 ТЕ К<1 ТНЕМ 60 ТО 1000 
950 ТЕ а(К, у(Г))<>1 ТНЕМ 1ЕТ о(е)=К: ЕЕТ р(е)=у(Р):1ЕТ е=е+1: 60 ТО 940 
960 ВЕМ ххххжхххжжжхжжкяжжхх 
1000 ТЕТ 1= 
1002 ТЕ 0(1)=0 ОВ р(1)=0 ТНЕМ @0 ТО 662 
1005 ТЕ 0(1)=0 ОН р(1)=0 ТНЕМ 1ЕТ 1=1 
1007 ТЕ р(1)=1 ТНЕМ РАТМТ АТ 0,15; РЕАЗН 1; РАРЕН 6; ТМК О;ВВТОНТ 0;“НН”: 60 ТО 1020 
1010 ТЕТ х1=0(1): [ЕТ у1=р(1): 60 ЦВ 2800: ЕЁАЗН 1: ВВТОНТ 0: РАРЕН 6: ТАК 0: РАТАТ 
АТ уу, хх; "НН": ТЕ у1<>12 ТНЕМ _ АТ уу+1, хх; “НН” 
1020 ТЕ ТАМКЕУ$="М№" ОВ ТМКЕУ$="п” ТНЕМ 60 50В 2050: ВЕЕР 0.02,0: [ЕТ 1=1+1: 60 ТО 1005 
1030 ТЕ ТМКЕУ$=”"В” ОВ Т КЕ! .- ТНЕМ 60 50В 2050: ВЕЕР 0.02,50: РОН 1=1 ТО 14: 1ЕТ 
0(1)=0: ЕТ р(1т)=0: МЕХТ 1: 60 ТО 665 
1035 ТЕ ТМКЕУ$="т” ОВ Т КЕУ$=" 'М” ТНЕМ ВЕЕР 0.01,0: ВЕЕР 0.01,10: ВЕЕР 0.01,20: 60 ТО 
1200 
1036 ТЕ ТМКЕУ$="е” ОВ ТМКЕУ$="Е” ТНЕМ 60 ТО 3000 
1037 60 50В 2100 
1040 60 ТО 1020 
1050 ВЕМ хххххжжжжжжжхжжжяжжжхх 
1200 ВЕМ * 
1201 ЕЕАЗН 0 
1205 ТЕ р(1)=1 ТНЕМ ВВТОНТ 0: РАРЕВ 6: ТМК 0: 1ЕТ х1=х(Р): [ЕТ у1=у(Т): 60 508 2800: 
РАТМТ АТ уу, хх; "ВС": РАТМТ АТ уу-1, хх; "А "; РАТАТ АТ 0,15; РАРЕН с; ТМК 0; ВВТЕНТ 
1; "7б": 60 ТО 2300 
1210 ТЕ у(Г)=12 ТНЕМ ВВАТОНТ 0: РАРЕВ 6: ТАК 0: 1ЕТ х1=х(Р): (ЕТ у1=12: 60 508 2800: 
РАТМТ АТ уу, хх; "ВС": ВАТОНТ 1: РАРЕВ с: во 0: ЕТ х1=0(1): (ЕТ у1=р(1): 60 508 2800: 
РАТМТ АТ уу, хх; "ОЕ": (ЕТ а(х(Р),у(Т))=0: [ЕТ а(0(1),р(1))=1: ЕТ х(Т)=0(1): ЕТ 
у(Т)=р(1): @0 ув 2000: 60 ТО 1300 
1230 ВВТОНТ 0: РАРЕВ 6: ТМК 0: 1ЕТ х1=х(Р): ЕЕТ у1=у(Р): 60 508 2800: РАТМТ АТ 
уу, хх; "ВС": РАТМТ АТ уу+1, хх; "А ": ВАТОНТ 1: РАРЕВ с: ТАК 0: (ЕТ х1=0(1): ЕТ 
У1=р(Р): 60 ЗЦВ 2800: РВТМТ АТ уу, хх; "БЕ": РАТМТ АТ уу-1, хх; "Ев": ЕЕТ а(0(1),р(1))=1 
ГЕТ а(х(Р), у(т))=0: [ЕТ х(Р)=0(1): ЕЕТ у(Р)=р(1) 
1300 ТЕ с=1 ТНЕМ 60 ТО 1310 
1305 ТЕ с=2 ТНЕМ @0 ТО 1340 
1310 РОН 1=1 ТО 6: [ЕТ г(+)=х(т): ЕТ и(т)=у(): МЕХТ т 
1320 60 ТО 1350 
1340 РОВ 1=1 ТО 6: [ЕТ В(+)=х(т): ЕТ у(т)=у(е): МЕХТ т 
1350 ТЕ с=1 ТНЕМ (ЕТ с=2: @0 ТО 1370 
1360 ТЕ с=2 ТНЕМ [ЕТ с=1 
1370 ТЕ с=1 ТНЕМ РОВ 1=1 ТО 6: (ЕТ х(1)=г(1): ЕТ у(т)=и(е): МЕХТ 1 
1380 ТЕ с=2 ТНЕМ РОВ 1=1 ТО 6: (ЕТ х(т)=1(1): (ЕТ у(т)=\(Е): МЕХТ 1 
1385 РОН 1=1 ТО 14: 1ЕТ о(1)=0: ЕТ р(1)=0: МЕХТ + 
1390 60 ТО 660 
1395 ВЕМ ххжхжжжжжжжжяжжжяжхх 
2000 ТЕ р(1)<>12 ТНЕМ РАТМТ АТ уу+1, хх; "Ра": АЕТОВМ 
2010 ВЕТИВ 
2050 1ЕТ х1=0(1): (ЕТ у1=р(1): 60 $08 2800: ЕЕАЗН 0: ВВТОНТ 0: РАРЕА 6: ТМК 0: РАТМТ 
АТ уу, хх; "ВС": ТЕ у1<12 ТНЕМ РАТМТ АТ уу-1, хх; "А ' 
2055 1ЕТ х1=х(+Р): [ЕТ уУ1=у(Р): 60 508 2800: ЕГАЗН 1; ВВТОНТ 1: РАРЕА с: ТМК 0: РАТМТ 
АТ уу, хх; "БЕ": ТЕ уУ1<>12 ТНЕМ РВТМТ АТ уу+1, хх; "Еб” 
2060 ВЕТИВ 
2100 ВЕМ *** \ВЕМ хх 
2110 ТЕ с=1 ТНЕМ 60 ТО 2130 


2120 ТЕ с=2 ТНЕМ 60 ТО 22 
2130 ЕЕТ \В11=ИН11+0. 105 


00 
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ВЕМ *» КОМЕС ТОВУ ** 
2360 60 ТО 3000 
2800 ВЕМ ххххжжххжжкяжжхх 
2820 ТЕТ хх=2+х1*2+(12-у1): [ЕТ уу=У1*2-3 
2830 ВЕТОВМ 
3000 ВЕМ *»*»* МЕМО *х*х 
3010 РАРЕВ 0: НЕАЗН 0: ВОВБЕН 0: (1$ 
3015 РАРЕВ 2 
3020 ЕОВ 1=0 ТО 21: РАТМТ АТ 1,0;"” "; МЕХТ 1: РОВ 1=0 ТО 31: РАТМТ АТ 21,1;" 
т ГО. 2121 ТО 0 5ТЕР -1: РАТМТ АТ 1,31; ” ”;: МЕХТ 1: РОН 1=31 ТО 0 5ТЕР -1: 
0,1; " ЕХТ 1 
3025 РАРЕВ 1 
3030 ЕОВ 1=1 ТО 20: РАТМТ АТ 1,1;” "; МЕХТ 1: РОВ 1=1 ТО 30: РАТМТ АТ 20,1; " 
1: РОВ 1=20 ТО 1 5ТЕР -1:РВТМТ АТ 1,30;" ": МЕХТ 1: РОВ 1=30 ТО 1 5ТЕР -1:РВТМТ АТ 
ПЬЕТ 
3035 РАРЕВ 7 
3040 ЕОВ 1=2 ТО 19: РАТМТ АТ 1,2;"” "; МЕХТ 1: РОВ 1=2 ТО 29: РАТМТ АТ 19,1; " 
1: РОВ 1=19 ТО 2 5ТЕР -1: РАТМТ АТ 1,29;" "; МЕХТ 1: РОВ 1=29 ТО 2 ЭТЕР -1: 
2“ “; МЕТ 
3045 РАРЕВ 0 
3050 РАТМТ АТ 4,12; ТАК 6; ' "РТВАМТОА". 
3060 РАТМТ АТ 7, 10; ТМК 1; ВАТСНТ 1; "Ргез$ апу Кеу”; АТ 9, 11, "То соп1пие” 
3070 РАТМТ АТ 12,8; ТМК 3; "ЗАМКТ- РЕТЕВВИВС" 
3080 РАТМТ АТ 14,14; ТМК 7; "1992" 
3082 РАТМТ АТ 16,4; ТМК 3; "АУТНОВ: КАРИЕТЗЕМТСН Т@ОВ” 
3085 ПК 7 
3090 РОТ 24,87: БВАМ 208,0: РЕОТ 24,85: ОВАМ 208,0 
3100 ТЕ Т№МКЕУ$<>"" ТНЕМ ВЕЕР 0.1,15: 60 ТО 500 


ГЕГ ИА1=ТАТ (МВ11) 

ТЕ 081=60 ТНЕМ ТЕТ \№8В11=0: ЕЕТ мг1=0: ГЕТ пи =тй1+1 
ТЕ пп1>=60 ТНЕМ ЕТ мм1=0 

ТАК 7: РАРЕВ 1: ВАТЕНТ 0: ЕЕАЗН 0 

РАТМТ АТ 3,1;" ”; 
ТЕ пп1<10 ТНЕМ РВТМТ АТ 3,2; "0"; 

РВТМТ мт; ”:”;: ТЕ мг1<10 ТНЕМ РАТМТ “0” 
РА 


ТАК 0: ВАТСНТ 1 


ЕЕТ МВ12=ИН12+0. 105 

ЕЕТ \В2=ТМТ (№812) 

ТЕ \В2=60 ТНЕМ ЕЕТ МВ12=0: ТЕТ МА2=0: ТЕТ ММ2=ММ2+1 
ТЕ ММ2>=60 ТНЕМ ТЕТ ММ2=0 

ТМК 7. РАРЕВ 2: ВАТОНТ 0: ЕГАЗН 0 

РВТМТ АТ 3,24; "; 

ТЕ ти2<10 ТНЕМ РАТМТ АТ 3, 25; "0"; 

РВАТМТ тт2; ”:”;: ТЕ \мг2<10 ТНЕМ РВТМТ “0”; 
РАТМТ шг2 

ТМК 0: ВВТСНТ 1 

ВЕТУВК 

ВЕМ *** МИУУКА *х*х 

РОВ ]=4 ТО 15 

ОВ 1=-20 ТО 30 5ТЕР 1] 

ВЕЕР 0.02, 1 

МЕХТ + 

МЕХТ } 


7 


РОВ 1=1 ТО 15: ЕЕТ сй=ТАТ (В№0*20+10): ВЕЕР 0.02, сп: МЕХТ 1 


60 ТО 3100 
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“; МЕХТ 
РАТМТ АТ 


“; МЕХТ 


“; МЕХТ 
РАТМТ АТ 
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ЦИФЕРТОН 


Эта игра хорошо развивает зрительную и музыкальную память и может 
использоваться для проверки этих качеств у играющего и его друзей. 

На игровом поле расположены несколько прямоугольников разного размера и 
цвета, причем четыре прямоугольника второго снизу ряда программа в случайном 
порядке зажигает и гасит подобно лампочкам новогодней гирлянды, сопровождая 
вспышку каждого из прямоугольников звуковыми сигналами (каждому 
прямоугольнику соответствует свой тон). 

Задача играющего - пользуясь четырьмя управляющими клавишами, 
воспроизвести заданную компьютером последовательность зажигания 


Рис. 1. 5. Игра ЦИФЕРТОН. 

прямоугольников в нижнем ряду экрана. Имейте в виду, что прямоугольники 
зажигаются и гаснут сериями, то есть вначале - один, например, красный, и вы 
должны ответить нажатием клавиши, включающей красный прямоугольник в 
нижнем ряду. Затем один за другим вспыхивают два прямоугольника - повторите и 
эту последовательность. Если ошибок не допущено, последует серия из трех 
вспышек и т. д. Когда вы сумеете правильно повторить последовательность из пяти 
цветов, игра перейдет на второй уровень и, сигнализируя 0б этом включит 
прямоугольник в верхней части игрового поля. Для перехода на третий уровень 
необходимо запомнить и быстро воспроизвести последовательность из десяти 
вспышек, а на четвертый - из пятнадцати. 

Конечно же, дело не обойдется без ошибок. Когда это произойдет, программа 
остановится, включит длинный фиолетовый прямоугольник в средней части 
экрана, а потом игра начнется снова, но уже на том уровне, которого вы успели 
достигнуть к моменту ошибки. 

Тем, у кого есть музыкальный слух, советуем воспользоваться звуковыми 
сигналами: так как каждому прямоугольнику соответствует свой тон, можно даже 
закрыть глаза и нажимать клавиши ориентируясь только по звукам. 

Напомним, что время игры ограничено, а для его контроля служит постепенно 
уменыпающийся синий прямоугольник в левой части игрового поля. 

После загрузки программы на экране появляется мерцающее меню: 

1 - НАЧАЛО ИГРЫ 

2 - ВЫБОР УРОВНЯ "1" 

3- ВЫБОР КЛАВИШ 

4-ВЫХОД 

Выберите раздел (1-4) 

Нажав несколько раз клавишу 2, можете установить желаемый уровень игры - 
ему соответствует число в кавычках. Буква «ГП» означает ПРАКТИКА - это обычная 
игра, только несколько медленнее и без уровней. Третий раздел меню позволяет 
назначить удобные для вас клавиши управления. Стандартный набор 
высвечивается на экране после загрузки программы и будет установлен, если 
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нажать предложенные клавиши. Аля начала игры достаточно нажать клавипту 1. 


Чтобы 


не забыть, 


какими клавишами пользоваться, Под прямоугольниками 


нижнего ряда горят выбранные вами символы. Для перехода в меню в любой 
момент времени, нажмите клавищу Е. 


100 
105 
120 
130 
140 
150 
160 


ВОВОЕН 0: РАРЕВ 0: ТМК 7 


СЕ 


РАТМТ АТ 10, 10; "РЕЕАЗЕ МАТТ” 


$(4): 
60 $08 9900 
ВЕМ -- МЕМИ --- 


А 


Ц 
т 
т 
Н= 
т 
с= 
Н 


РАТМТ АТ 10,8; Т 
РАТМТ АТ 12, 8; 
РАТМТ АТ 14, 
ТЕ ТАМКЕУ$=" Т 

ТЕ ТМКЕУ$=" 2” т 
ТЕ ТМКЕУ$=" 3" Т 
ТЕ ТМКЕУ$=" 4" Т 


ЕЕТ иг=иг+1 
ТЕ ч"=4 ТНЕ 
ТЕ чг=0 ТНЕ 
ТМГ АГ 10, 
ВЕТУВМ 


РАТМТ 
РАТМТ 


ТО 4 


МЕХТ п 


<> 
28 
= 

1 
ыы 


ТО 4 
ТИКЕУ$ 


п 
1 

2. 

"фт 


В Е =" 


ЕТ К$(п)=1$ 


О ЕЕ 
т] 
< | 
= 
> 


2) 
— 
(<>) 
(Фр) 
ав») 


(1$ 


=1 
АТ 3,9; ТМК 2; "Ц И"; Т 
АТ 20,5; ТАК 6; "ВЫБ 


ТЕТ и 
РАТМТ АТ 10,25; ТМК 3; """"; 
251 1 


**х ВЫБОР КЛАВ 


Т 9, 10; РАР 
Т 11,10; РАРЕВ 6; ТМ 
Т 13, 10; РАРЕН 4; ТМ 


ОВ 1$="Е” 
Е (СО0Е 1$>64 АМО СОБЕ 1$<91) ОВ 
ЕЕР .05,-23: 60 ТО 
Е п>1 ТНЕМ ТЕ 1$=К$(п-1) ТНЕМ 60 ТО 475 


ВТМТ АГ 5+пх2, 22; 
Е . 002,50: ВЕЕР 


60 508 8300 


0 ТНЕМ РАТМТ АТ 10,25; ТАК 3;"""" 
АТ 10,25: ТМК 3:"""", 

5: ЕТ с1=7 

АТ 8,8; ТАК с; " 


В 


Я хх 
г=0 
К Я 


Ш хх 


ЕВ 1; 


ТМТ АТ 5+пх2, 22; К$ (п) 


ТНЕМ 60 


45 


ТАК 3; 1$ 
. 001, 40 


ОВ П=1 ТО 100: МЕХТ п 


АЕМ ** НАЧАЛО ИГРЫ ** 


620 РАТМТ АТ 1,9; ТАК 5; "ЦИФ 


М 1; ФЕ’; 1 


“ 
ТМК 4:04; ТАК 


1 - НАЧАЛО ИГРЫ” 


ЫБОР УРОВНЯ” 
ЫБОР КЛАВИШ” 
ВЫХОД” 

000: 60 ТО 600 
000: 60 508 30 
000: 60 ТО 400 
000: 5ТОР 


ТЕ с=5 ТНЕМ (ЕТ 6=7: ЕЕТ с1=5: 60 ТО 90 
ТЕ с=7 ТНЕМ (ЕТ 0=5: ЁЕТ с1=7: 60 ТО 90 
АЕМ *»* ВЫБОР УРОВН 


ТМК 4: иг; ТМК 


ГМТ АТ 3, 10; ТАК 6; "ВЫБОРППКЛАВИШ" 

Т 7, 10; РАРЕВ 2; ТМК 5; "КРАСНЫЙПИ" 
ТМК 5; "СИНИЙПАПИ” 
К 0; "ЖЕЛТЫЙППП" 
К 0; "ЗЕЛЕНЫЙПП" 


ТО 475 


РОН, 


Программа 38. ЦИФЕРТОН. 


МК 6. "РТ"; 


ЕРИТЕ РАЗДЕЛ (1 - 4)” 
МК 4; "р"; ТАК 3; 7""" 


т 


0 


ТМК 4; "РТК 3; 7""” 


т" 


РАРЕН 0; “ - 
РА Е 


ТАК 4; " 


РАРЕВ 0; ТМК 5; "= 
РАРЕН 0; ТМК 5;" - 


ОН" 


: 60 10 80 


‚ КЕТОВК 


(СООЕ 1$>47 АМО СООЕ 1$<58) ТНЕМ 60 ТО 490 
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625 ТМК 7 

630 РОН №=31 ТО 191 5ТЕР 40 

640 РИОТ М, 137: ОВАМ 34,0: ОВАМ 0, -10: ОВАМ -34,0: ОВАМ 0, 10 

650 МЕХТ М 

660 РОН №=23 ТО 239 5ТЕР 56 

665 РЕОТ №, 96: ОНАМ 50,0: ОВАМ 0,-26: ОВАМ -50,0: БВАМ 0, 26 

667 РОТ М, 56: ОВАИ 50,0: ОВАМ 0,-18: ОВАМ -50,0: ОВАМ 0, 18 

670 МЕХТ М 

675 РВТМТ АТ 15,3; РАРЕН 2; "ПППППИ"; АТ 16, 3; "ПППППП”; АТ 15,10; РАРЕН 1; "ПППППП”; АТ 


16, 10; "ПППППП"; АТ 15,17; РАРЕН 6; "ПП”;АТ 16, 17; "ПППАПИ”; АТ 15, 24; РАРЕВ 
4; "ПППППП”; АТ 16, 24; "ППП" 
680 РОН №=1 ТО 4 


685 ТМК 3: ЕЕТ Х=№»7-2: РАТМТ АТ 19,Х; К$ (№) 

690 МЕХТ М 

697 ТМК 7 

700 РОВ №=39 ТО 207 ТЕР 56 

705 РЕОТ №,25: ОВАМ 10,0: ОВАМ 0,-10: ОВАМ -10,0: ОВАМ 0, 10 

710 МЕХТ № 

720 РИОТ 23,113: ОВАМ 218,0: ОВАМ 0, -10: ОВАМ -218,0: БВАМ 0, 10 
722 РЕОТ 7,7: ОВАМ 0,130: ОВАМ 10,0: ОНАМ 0,-130: ОВАМ -10,0 
723 ЕОН №=5 ТО 20: РАТМТ АТ М,1; РАРЕН 1;” “: МЕХТ № 

725 РЕОТ 0,0: ОВАМ 0,175: ОВАМ 255,0: ОВАМ 0, -175: ОВАМ -255,0 
750 ВЕМ ------------------ 

755 БТМ С(50) 

760 ГЕТ КОГ=0: ЕЕТ РН=0 

770 ТЕТ 5Р=0: (ЕТ Р0=17 

795 ВЕМ --------------------- 

800 РОН №=4 ТО 24 ЗТЕР 5: РАТМТ АТ 5, №; "ППАИ”: МЕХТ № 

805 ТЕ ЦН=О ТНЕМ РОН №=4 ТО 24 ЭТЕР 5: РВТМТ АТ 5, М;РАРЕН 4; "ППП": МЕХТ №: 60 ТО 
850 

810 РЕТМТ АТ 5, 04*5-1; РАРЕН 2; "ПППИ" 

845 ВЕМ -------------------- 


850 ТЕТ $Р=30-0В*4: ТЕ УН=О ТНЕМ ЕТ КО1=0: 60 ТО 860 
853 ТЕ РО=1 ТНЕМ 60 508 2100: 60 ТО 60 

855 ГЕТ КОЕ=ИВ»5-5: ТЕ 0В>1 ТНЕМ 60 ТО 862 

860 ТЕТ КОЕ=КОЕ+1 

862 БТМ С(50) 


865 РОН М=1 ТО 100: МЕХТ м 

870 ТЕ КОГ=УВ»5 ТНЕМ ЕТ УВ=ИВ+1: 60 $08 2000: 60 ТО 800 

880 РОН №М=1 ТО КО! 

890 ТЕТ №0=ТМТ (В№»4+1) 

895 ТЕ №>1 ТНЕМ ТЕ №=С(№-1) ТНЕМ 60 ТО 890 

900 ТЕТ С(№)=№ 

905 ТЕТ М=№*»7-4 

907 ТЕ №0=1 ТНЕМ ЕТ Т№=2 

910 ТЕ №=2 ТНЕМ ЁЕТ Т\=1 

915 ТЕ №=3 ТНЕМ ЕТ Т№=б 

920 ТЕ №=4 ТНЕМ ТЕТ Т№=4 

930 РВТМТ АТ 10,М; РАРЕН ТМ; "ПППАПП”; АТ 11, М; "ПППППП”; АТ 12, М; "ПППППО” 
932 ТЕ №=1 ТНЕМ ЁЕТ МОТА=0 

933 ТЕ №=2 ТНЕМ ТЕТ МТА=3. 86 

934 ТЕ №=3 ТНЕМ ТЕТ МОТА=7. 02 

935 ТЕ №=4 ТНЕМ ЕТ М№ТА=10. 88 

940 ВЕЕР .1, МОТА 

950 РОВ М=1 ТО 5Р: МЕХТ М 

955 РАТМТ АТ 10,М; РАРЕН 0; "ПППППП”; АТ 11, М; "ПППППП”; АТ 12, М; "ПППППП” 
960 МЕХТ М 

970 РОВ №=1 ТО КО! 

980 ТЕ ТМКЕУ$=К$(1) ТНЕМ ГЕТ №=1: ЕЕТ М=3: (ЕТ Т1№=2: 060 ТО 1000 
985 ТЕ ТМКЕУ$=К$(2) ТНЕМ 1ЕТ №=2: ЕЕТ М=10: ЕЕТ Т\=1: 60 ТО 1000 
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987 ТЕ ТМКЕУ$=К$(3) ТНЕМ ЕЕТ №=3: ЕЕТ М=17; [ЕТ Т№=б: 60 ТО 1000 

990 ТЕ ТМКЕУ$=К$(4) ТНЕМ ГЕТ №=4: 1ЕТ М=24: [ЕТ Т№=4: 60 ТО 1000 

992 ТЕ ТМКЕУ$="Е” ТНЕМ 60 ТО 60 

995 60 ТО 980 

1000 РВАТМТ АТ 15,М; ВВТОНТ 1; РАРЕН ТМ; "ПППППИ”; АТ 16, М; “ПАП” 

1010 ТЕ №<>С(№) ТНЕМ ГЕТ КОЕ=УВ*5-5: РАТАТ АТ 8,3; РАРЕВ 

3; "ППППППППППАААЛАППППППППАААИ”: ВЕЕР .5,-5: ГЕТ РО=РО-1: РАТМТ АТ 21-Р0,1; РАРЕН 0; ` 
”: РАЦЗЕ 20: РАТМТ АТ 8, 3; "ППППП”: РАТМТ АТ 15,М; ВАТЕНТ 0; РАРЕВ Т№; "ПППАПП”; АТ 
16, М; "ППППИ”: С0 ТО 850 


1020 РАТМТ АТ 10,М; РАРЕВ ТМ; "ПППППП”; АТ 11, М; "ППАПАИ”; АТ 12, М; "ПППППИ” 
1022 ТЕ №=1 ТНЕМ ЕТ №ТА=0 

1023 ТЕ №=2 ТНЕМ ГЕТ №ТА=3. 86 

1024 ТЕ №=3 ТНЕМ ГЕТ Ю№ТА=7. 02 

1025 ТЕ №=4 ТНЕМ ГЕТ №ТА=10. 88 

1030 ВЕЕР .1, МОТА 

1040 РАТМТ АТ 10,М; РАРЕН 0; "ПППППП”; АТ 11, М; "ПППАПИ”, АТ 12, М; “ППППАИ” 
1050 РАТМТ АТ 15,М; ВВТСНТ 0; РАРЕВ ТМ; "ПППППП"; АТ 16, М; “ППП” 

1055 РОВ М=1 ТО 10: МЕХТ И 


1060 МЕХТ № 

1070 60 ТО 860 

2000 ВЕМ ** ЗВУК 1 ** 
2005 НЕМ 
2010 РОН 7=1 ТО 40 

2020 ВЕЕР- 00 ь ВЕЕР. 005 ;20 
2025 МЕХТ 7 

2030 ВЕТИВМ 

2100 ВЕМ ** ЗВУК 2 ** 


2110 ВЕЕР .1,20: ВЕЕР .1,17: ВЕЕР .1, 14 

2120 РОН п=18 ТО 8 5ТЕР -2 

ЕР .1,п: ВЕЕР .1,п-2: ВЕЕР .1,п-4: ВЕЕР .1,п-6 
2140 МЕХТ п 

2150. ВЕЕР: 6: ”ВЕЕРУ ТО 

2160 РАЦЗЕ 20 


Во) 

, 

(9%) 

(=) 

со 

мы 
т 


2170 ВЕТОВМ 

7000 ВЕМ ** ЗВУК 3 ** 
7005 НЕМ 

7010 ВЕЕР .0008, 40 
7015 ВЕЕР .0009, 55 
7020 ВЕЕР .0008, 40 
7025 ВЕЕР .0009, 30 
7030 ВЕТИВМ 

7999 ТОР 

8300 ВЕМ ** ЗНАЧЕНИЕ КЛАВИШ ** 
8305 ВЕМ 


8310 РОВ п=1 Т0 4 

8320 НЕАБ К$(п) 

8330 МЕХТ п 

8335 1ЕТ иг=1 

8340 РОКЕ 23658, 8 

8380 ВЕТИВМ 

8390 ВАТА "М", "В", "М", "М" 
9900 ВЕМ *х РУССКИЙ АЛФАВИТ х* 
9905 ВЕМ 

9910 ЕОН №=1 ТО 20 

9920 НЕАБ А$ 

9930 РОН М=0 ТО 7 

9940 ВЕАБ $ 

9950 РОКЕ 158 А$+М, 5 

9960 МЕХТ М 
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9970 МЕХТ № 

9975 ВАТА "В", 0, 124, 64, 124, 66, 66, 124,0 
9976 БАТА "@”,0, 126, 64, 64, 64, 64, 64,0 
9977 ВАТА "0", 0, 28, 36, 36, 36, 36, 126, 66 
9978 ВАТА "\/",0, 73, 73,62, 73, 73, 73,0 
9979 ВАТА “Т",0, 66, 70, 74, 82, 98, 66,0 
9980 ВАТА "1", 0, 30, 34, 34, 34, 34, 98,0 
9981 ВАТА “Р",0, 126, 66, 66, 66, 66, 66,0 
9982 ВАТА "0",0, 66, 66, 36, 24, 16, 96,0 
9983 ВАТА "С",0, 68, 68, 68, 68, 68, 126,2 
9984 ВАТА “Н",0, 66, 66, 66, 62,2,2,0 
9985 ВАТА "М", 0,65, 73, 73, 73, 73, 127,0 
9986 ВАТА "М", 0,65, 73, 73, 73, 73, 127,1 
9987 ВАТА "Е",0, 60, 66, 30,2, 66, 60,0 
9988 ВАТА "И", 0, 76, 82, 114, 82, 82, 76,0 
9989 ВАТА “"А",0,62, 66, 66, 62, 34, 66,0 
9990 ВАТА "5", 24, 66, 70, 74, 82,98, 66,0 
9991 ВАТА “В”, 0, 64, 64, 124, 66, 66, 124,0 
9992 ВАТА "Т”,0, 192, 64, 124, 66, 66, 124, 0 
9993 ВАТА “Г”, 0, бе, 73, 73, 73,62,8,0 
9994 ВАТА "0", 0,66, 66, 114, 74, 74, 114,0 
9995 ВЕТИВМ 


В этой программе широко используются тексты на русском языке. Удобство их 
применения совершенно очевидно: тут и правила, которые можно вывести на 
экран перед началом игры, и пояснительные надписи по ее ходу, и тексты в кадрах 
заставки. 

Посмотрим, как это сделано. Часть букв латинского алфавита (и цифра 3) 
просто использована как русские символы: 

А, В, Е, З, К, М, О, Р, С, Т,Х 

Остальные сформированы как обычные графические символы в области ООС и 
соответствуют клавишам: 

О-ЫР-ДЕ-ЭЕ-ФК-ЬС-ГТ-ЪН-ЧО-Ю.Т- Ж!-ИГ-Л О-У С-ЦР-П В-Б А-Я 
М-ШМ-Щ$-Й 

Таким образом, чтобы на экране появилась, например, буква «Ы», нужно 
перейти в графический режим (курсор С) и нажать клавишу О. 

Подпрограмма русского алфавита занимает строки 9900...9995, а обращение к 
ней происходит в строке 50, то есть непосредственно перед тем, как русские буквы 
будут использоваться в строках 70, 90, ... 

Рекомендуем набирать программу ЦИФЕРТОН, начиная со строк 9900...9995, 
после чего запустить ее оператором КОМ и далее вводить все остальные строки. 


ЛАБИРИНТ 


Через некоторое время после загрузки этой программы на экране появится 
лабиринт, стенки которого окрашены в белый цвет, а проходы заполнены 
зелеными звездочками. Цель игры состоит в том, чтобы за минимальное время 
собрать эти звездочки, передвигая по проходам маленького человечка. 

Клавиши управления: Р - вправо; О - влево; О - вверх;.А - вниз. 
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Е::3 


Е: 
[8 


т 
Е: Е 
ча 
Нан ни: 

ВЕ в +3 

я 
Рис. П.6б. 
необходимо 


управления. В верхней части лабири 
времени - теперь не зевайте! 


Чтобы начать игру, 


9 (ЕТ г=1000 

10 ВОВОЕВ 0: ТМК 7: РАРЕВ 0: (1$ : 
15 60 $8 2000: ВЕЗТОВЕ 

20 ЕОВ 1=1 ТО 608: ВЕАО а 

30 ТЕ а=1 ТНЕК РАТМТ АТ у, х+1; "Я 

40 ТМК 5: РАТМТ АТ у, х+1; "=": ТАК 7 
50 ЕТ х=х+1: ТЕ х=31 ТНЕМ ЕЕТ у=у+ 
60 МЕХТ 1: РАТАТ АТ 1,20; ТАК 3; "Ве 
0: ВЕЕР .05,30:РАТМТ АТ 3,13; ТАМЕВ 
70 (ЕТ п=0: [ЕТ {=0: [ЕТ у=4: ЕТ х= 
80 РАТМТ АТ ух: "А" 

85 ТАК 6 

90 ТЕ Т\КЕУ$="д” ТНЕМ 60 ИВ 500 
100 ТЕ ТАКЕУ$="а” ТНЕМ 60 ЗВ 530 
110 ТЕ ТМКЕ\$="о" ТНЕК 60 $08 560 
120 ТЕ ТМКЕУ$="р” ТНЕК 60 $08 600 
125 ТЕ р1<р ТНЕМ 1ЕТ р1=р: ВЕЕР .00 
130 [ЕТ 1=+.5: ТЕ р=304 ТНЕМ 60 ТО 
140 РВТАТ АТ 1,1; ТМК 3; "Тме "; ТТ 
150 60 ТО 85 

200 ВЕЕР .2,15: ВЕЕР .2,11: 

210 ТЕ ТИТ (Е)<г ТНЕМ РАТМТ АТ | А 
220 ТМРИТ #0; "МЕМ САМЕ? (у/п)”; 

230 ТЕ 0$="у" ОВ о$="У" ТНЕМ и 
240 ВЕЕР .3,10: ЗТОР 

500 ТЕ ЗСВЕЕМ$ (у-1,х)="*" ТНЕМ (ЕТ 
510 ТЕ ЗСВЕЕМ$ (у-1,х)=” " ТНЕМ ЕТ 
520 ВЕТИВ 

530 ТЕ ЗСВЕЕМ$ (у+1,х)="*" ТНЕМ (ЕТ 
540 ТЕ ЗСВЕЕМ$ (у+1,Х)=” " ТНЕМ ЕТ 
550 ВЕТИВ 

560 ТЕ ЗСВЕЕМ$ (у,х-1)="*" ТНЕМ (ЕТ 
570 ТЕ ЗСВЕЕМ$ (у,х-1)=” " ТНЕМ (ЕТ 
580 ВЕТИВ 

600 ТЕ ЗСВЕЕМ$ (у, х+1)="*" ТНЕМ ЕТ 
610 ТЕ ЗСВЕЕМ$ (у,Х+1)=" " ТНЕМ ЕЕ 
620 ВЕТИВ 

1000 ВАТА: 121.9 ЧА 
1010 ОАТА 1,0,1,0,0,0,0,0,0,0,0,0,0 
1020 ВАТА 1,0,1,0,1,1,0, 1,1, 1,1,0, 1 
1030 БАТА 1,0,0,0,1,1,0,0,1,0,0,0,0 
1040 ОАТА 1,0,1,0,0,0,1,0,0,0,1,1,0 
1050 ОАТА 1,0, 1,1,1,0,0,0,1,0,0, 1,0 
1060 ОАТА 1,0,0,0,1,0,1,1,0,1,0,0,0 
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о: Г 


РВВ = РЕ 
НЕЕ 
НЕЁ 


$ 
о: И: 
$ 
8 
Нан а Е: 
= Е 
неа 


Я 


сре 


Игра ЛАБИРИНТ. 
нажать Ещег а затем одну из клавиш 
нта появится человечек, и начнется отсчет 


Программа 39. ЛАБИРИНТ. 


ЕТ 9=0: ЦЕТ у=З:ЕЕТ х=-1 


”; 60 10 50 


1: (ЕТ х=-1 

ога “; г; "ПП" .РАТМТ АТ 3,13; ТМК 2; 
ЗЕ 1;; "#НННЕ" 

5: ИЕТ р=0: (ЕТ р1=0 


"ТАЯТ": РАЦЗЕ 


08,55 
200 
(1) 


РАТМТ АТ 1,1; ТМК 3; "ТТМЕ”;ТМТ (1) 


ТМК 2: "Векога “;ТМТ(Е): "ПП": ЕТ г=ТМТ (т) 
Е: 060 10 10 

р=р+1: 1ЕТ у=у-1:РАТМТ АТ у, х; "А”;АТ у+1,х;” 
у=у-1: РАТАТ АТ у, х; "А”;АТ у+1,х;” ^ 

р=р+1: ЕТ у=у+1:РАТАМТ АТ у,х: “А”; ЗАТ у-1,х;" " 
у=у+1: РАТАТ АТ у, х; "А": АТ у-1,х;: "” 

р=р*1: 1ЕТ х=х-1: РАТМТ АТ у,х; “А”; ЗАТ у, х+1: "" 
х=х-1: РАТМТ АТ у,х; "А": АТ у, х+1; " 

р=р-+1: ЕТ х=х+1:РАТМТ АТ у, х; “А”; АТ у, х-1 
х=х+1: РАТМТ АТ у,х; "А": АТ у, х-1;" ” 
м ВЫ 
‚0,0, 1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0, 1 
‚1,0, 1,0,1,1,1,0,0,1,0,0,1,0,1,1,1,0,1 
510; 1.0.110. 1:0. 1.1.0. 11.01.0500: 
,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0, 1 
‚1,0, 1,1,0,1,0,1,1,1,0,0,0,1,1,1,0,0, 1 
1,0,0,0,1,0,1,1,0,1,0,1,1,1,0,0,0,1,1 
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1070 ВАТА, ОО ООО О ООО ООО, 0:0, 
ОВО ОВ ВА: 1, В В а, БУ 1 
ТОО ОАТА В О В О О БО 01 
В В Е 
О ВА 0 О ООО Об 
В О 1 
О Ы 
АО: ВАТА О В, О, ООО, 61 
О ОО, ОТ, 1 
О 
А О О ООО, ОО 
О р 
2000 ВЕЗТОВЕ 2030: РОВ Т=058 “а” ТО ЦЗН “а"+7 
2010 ВЕАВ а: РОКЕ Г, а: МЕХТ Т 
2020 ВЕТОВ 
2030 ВАТА 24, 60, 24, 255, 24, 126, 66, 195 


АНАКОНДА 


Игра начинается с простой заставки, в которой, кроме названия программы и 
имени города, где она создана, помещена информация о клавишах управления. 
После нажатия любой клавиши вы попадете на игровое поле. По нему в случайном 
порядке разбросаны символы: 

@ - имитируют пищу (кроликов}; 

+ - символизируют опасные для анаконды места. 

Игровое поле ограничено рамкой (колючей проволокой), которую тоже не 
рекомендуется трогать. 

Когда игровое пространство заполнится, на него выползет маленькая и очень 
шустрая анакондочка. Задача игрока - направлять ее на кроликов и избегать 
опасных мест, тогда, поглощая кролика за кроликом, маленькая анакондочка 
превратится в большую и довольно неповоротливую анакондищу. 


й 
( 
р 
( 
й 
( 
й 


Рис. 11. 7. Игра АНАКОНАДА. 
Программа 40. АНАКОНДА. 
30 ВОВОЕН 1: РАРЕВ 1: ТАК 1: (15$ 
35 РОКЕ 23658, 8 
40 РЕОТ 0,0: ОВАМ 0, 175 
50 ОВАМ 255,0: ОВАМ 0, -175 
60 ВВАМ -255,0: РЕОТ 2,2 
70 ВВАМ 0,171: ОВАМ 251,0 
80 ОВАМ 0, -171: ОВАМ -251,0 
90 ТМК 2: РОТ 1,1: БВАИ 0, 173 
100 ОВАМ 253,0: ОВАМ 0, -173 
110 ОВАМ -253,0 
120 ОТМ Р(30,20) 
130 ТМК 4 
140 РАТМТ АТ 1,8; "**»”; ТМК 7;” АМАКОМОА "; ТАК 4; "хжх" 
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ГОТ 0, 152: ОВАИМ 255,0 


4,8; "ЗапкЕ - Рефегоигд” 
Т 6, 14; "1993" 
‚ МК 2 


Т 8, К-1; "ПППАПЛЛАЛААИ” 


ТО 16 
Т М, К-1; "ПППАПААААААИ”; РАРЕВ 0;”^ 


АТМТ АТ 15. К:"Р....АТЕНТ" 


РАРЕВ 1: ТАК 4 


РАЦЗЕ 0 


Е ЕЕ ЕЕ О ТА 
1 = | 
= 
И 


>< 
9 
— 


АТМТ АТ 20, 3; "РВЕЗЗ$ АМУ КЕУ ТО СОМТТМУЕ” 


ЕМ -- МАСНАЕО ТОВУ --- 


| 
+ 
= 
— 
= 


2 
‚0;” ": РАТМТ АТ М, 31; ” 


№ 
ХТ М 
ТАТ АГ 0, 0; "ППППППППППЛППППОПОПОЛАЛАЛАААААА И” 
ТАИТ АГ 21, 0; "ПАППППППППППППППААПАААПОАООООЛО О” 
1 10 20 
ТМТ (8№0*30+1) 
=ТАТ (А№0*20+1) 
У, Н; ТМК 2; "4" 


й 
= 
И 
=> 4 
— = 


=1 ТО 20 

=ТМТ (А№0*30+1) 

Т (А№0*20+1) 
Е АТ у, Н; ТАК 6; "©" 


1 
= 
И 

Ч 
= 


ОТМ Х(25): 


О1М У(25) 


РОВ №=1 ТО 4: 


РАТМТ АТ У(1 


а: РТР — 


Я 
ТЕ Х(1)<1 08 


ГЕТ Х(№)=10: ЕЕТ У(№)=10+№: МЕХТ № 
),Х(1);” ": ЕЕТ \=-1: ЕЕТ Н=О: ГЕТ 0Е=4:1ЕТ 0Е1=4 


0 ТО 2000 

ТНЕМ ЕЕТ Н=-1: ЕЕТ \/=0 
ТНЕМ ЕЕТ Н=1: ЕЕТ \/=0 
ТНЕМ ГЕТ \/=-1: ЕЕТ Н=0 
ТНЕМ ГЕТ \=1: ЕЕТ Н=0 


=0 ОВ Х(0Е1)=0 ТНЕМ 60 ТО 586 


11), Х(0ЕТ);” ” 
ЕМ ТЕТ 01=0Е1: 60 ТО 590 
2 ЭТЕР -1 


)+Н: ГЕТ \(1)=У(1)+\ 


АМ: "0 


Х(1)>30 ОА У(1)<1 ОВ У(1)>20 ТНЕМ 60 ТО 1000 
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680 ТЕ 5СВЕЕМ$ (\(1),Х(1))="#" ТНЕМ 60 ТО 1000 

682 ТЕ $СВЕЕМ$ (\(1),Х(1))="0” ТНЕМ @0 ТО 1000 

690 ТЕ $СВЕЕМ$ (\(1),Х(1))="@” ТНЕМ ВЕЕР .0008, 56:ВЕЕР .005,40: [ЕТ 5=5+1: (ЕТ 
0Е1=0Е1+1: ГЕТ $0=$50+10: РВТМТ #0;АТ 0, 10; "5СОВЕ ";5С 

695 ВЕМ ---------------- 

697 РАТМТ АТ У(1),Х(1); "*” 

700 60 ТО 545 

1000 (1$ 

1002 ГЕТ А$=" С АМ ЕПППО УЕВ” 

1005 РОВ №=1 ТО 19: РВТАТ АТ 10, 6+№; А$(№): ВЕЕР .03, 30-(№*3+10): МЕХТ № 
1010 ТЕ Т№МКЕ\У$="" ТНЕМ 60 ТО 1010 

1020 60 ТО 10 

2000 ВЕМ ------------------ 

2005 ВЕЗТОВЕ 


2010 РОН М=1 ТО 14 
2020 ВЕАВ 5,Т 

2030 ВЕЕР 5/1.5,Т 
2040 МЕХТ № 
2045 60 ТО 10 
2050 ВАТА .4,20,.2,17,.2,20, .4,19 

2055 ВАТА .2,16,.2,19,.4, 18 

2060 ВАТА .2,15,.2,18,.4, 17 

2070 ВАТА .45,14.3,.45,15.3,.45,16.3,.55, 12 


СПРУТЫ 


Начало работы программы можно считать традиционным: появляется заставка 
с названием игры и информацией о том, как се начать. Нажав клавишу 5, вы 
запустите подпрограмму, создающую игровое пространство - дно моря со сложным 
рельефом и аквалангистов, укрывшихся в его расщелинах от страшных и 
чрезвычайно опасных осьминогов. Затем на поверхности моря появляется 
маленькая подводная лодка. Ее задача - спасти аквалангистов. 

Клавиши управления подводной лодкой: 

Р- вправо; О - влево; О - вверх; А - вниз. 

Чтобы спасти аквалангиста, достаточно поставить подводную лодку на его 
место. Но действовать надо крайне осторожно: столкновение со дном моря или с 
осьминогом может погубить подводную лодку, и игра закончится. А чтобы вы были 
порешительнее и не слишком долго размышляли, куда двигаться и кого первым 
спасать в левом верхнем углу экрана помещены часы-таймер, неумолимо 
отсчитывающие 150 секунд, отпущенные вам на проведение ;всей операции. Всего 
150 секунд - и ни секундой больше! 


Рис. 11.8. Игра СПРУТЫ. 
Из этой программы можно легко сделать несколько других, не менее 
занимательных игр. Можно заменить осьминогов на подводные лодки противника, 
а свою субмарину оснастить запасом торпед, можно создать на дне несколько 


ПРИЛОЖЕНИЕ 1. НЕСКОЛЬКО ИГРОВЫХ ПРОГРАММ 174 


подводных баз (своих или чужих) и, в зависимости от придуманного сюжета, 
защищать или уничтожать их. 
Программа 41. СПРУТЫ. 
20 ВОВОЕН 0: РАРЕВ 0: ТМК 7 
30 15$ 
40 РОН Т=05В "а" ТО 158 "9"+7 
50 НЕАВ а: РОКЕ К, а 
60 МЕХТ Е 
65 РОКЕ 058 "5", 16 
70 ОАТА 
0, 12, 158,255, 62,0,0,0, 93, 42, 255, 60, 74, 82, 146, 74,0,24, 24, 16,124, 16,40, 68, 170, 85, 170, 85 
‚ 170, 85, 170, 85 
90 ВЕАД а, 6, а$ 
100 РОВ $=1 ТО ГЕМ а$: РАТМТ АТ а, 6; а$(1 ТО $): ВЕЕР .02,-20: МЕХТ $ 
110 ВАТА 6, 11, "ЗРВОИТ 5" 
120 РОВ г=6б ТО 26 ЗТЕР 2: РАТМТ АТ 2,г: ТМК АМО*5-1: "В". АТ 10, г; ТМК В№0*5+1: “В”: 


сэ 


130 РОВ г=2 ТО 10 5ТЕР 2: РЕТМТ АТ г,6; ТМК В№*»5+1; "В"; АТ г,26; ТМК В№0+5+1; " 


195 


140 РОВ 1=6 ТО 0 $ТЕР -1: РАТМТ АТ 14,11; ТМК Е; "ЗфагЕ - 757": ТЕ ТМКЕУ$<" $" ТНЕМ 
РАЦЗЕ 5: МЕХТ Г: РАЦЗЕ 5: 60 ТО 140 
160 НЕМ Зфаг*! 
170 РАРЕВ 0: ТМК 7: ВОНОЕВ 0: (1$ 
180 РОВ 1=0 ТО 31: ВЕАБ м: РОН 9=21 ТО м 5ТЕР -1: РАТМТ АТ 9, Е; "0": МЕХТ 9: МЕХТ Р 
190 ВАТА 
ПГ, о. То, о, ЛОТА ЛЬ, 6, 
8, 21, 14, 15 
200 РАТМТ АТ 0, 0; "ПППППППППППЛЛИИП007070777770707079797900000000000000000000000000000000” 
210 ВЕАО а$: ТАК 4: ВВТСНТ 1: РОВ 1=1 ТО ГЕМ а$ $ТЕР 2: РАТМТ АТ 0, 11;а$ (1 ТО Г): 
ВЕЕР .25,-25: МЕХТ Г: ВВТСОНТ 0: ТМК 7 
220 БАТА "5 РВУТ5” 
250 ЕОН Т=1 ТО 5: НЕА а,0: РАТМТ АТ а, 6; ТМК 6; "С": ВЕЕР. 1,25: РАЦЗЕ 10: МЕХТ Р 
260 ВАТА 15,3, 14, 7, 16, 16, 14, 23,20, 29 
265 ОТМ х(3): БТМ у(3) 

103 


271 (ЕТ у(Р)=8: ВЕАВ х(Р): РАТМТ АТ у(Р),х(Р); ТАК 2; "В": МЕХГ Е 
272 ВАТА 5, 15,25 

273 [ЕТ у=1: (ЕТ х=15: РАТМТ АТ у,х; ТМК 5; "А" 

275 ИЕТ с=150: ЕЕТ 1=0 
276 1ЕТ с=с-1: РАТАТ АТ 0,0;с;” ”: ТЕ с=0 ТНЕМ 60 ТО 5000 


277 ТЕ 1=5 АМО х=15 АМО у=1 ТНЕК 60 ТО 6000 

290 ТЕ ТМКЕУ$="р” АМО х<31 ТНЕМ 60 508 3000 

291 ТЕ ТМКЕ\$="о” АМО х>0 ТНЕМ 60 508 3100 

292 ТЕ ТМКЕУ$=" а” АМО х>1 ТНЕМ 60 50В 3200 

293 ТЕ Т\КЕУ$="а"” АМО у<21 ТНЕМ 60 508 3300 

300 РОВ 7=1 ТО 3: 1ЕТ г=ТМТ (В№*4+1) 

310 60 508 3900+100*г 

320 МЕХТ 7 

400 60 ТО 276 

3000 ТЕ $СВЕЕМ$ (у,х+1)<>" ” ТНЕМ 60 ТО 5000 

3010 РАТМТ АТ у,х; ” “;: ТЕТ х=х+1: РАТАТ АТ у,х; ТИК 5; "А 

3020 ВЕТИВ 

3100 ТЕ $СВЕЕМ$ (у, х-1)<>" " ТНЕМ 00 ТО 5000 

3110 РАТМТ АТ у,х; ” “: 1ЕТ х=х-1: РАТМТ АТ у, х; ТМК 5; "А" 

3120 ВЕТИВ 

3200 ТЕ ЗСНЕЕМ$ а т, х <>" " ТНЕК 60 ТО 5000 

3210 РАТМТ АТ у,х; ” “: 1ЕТ у=у-1: РАТАТ АТ у,х; ТМК 5; "А" 

3220 ВЕТИВ 

3300 ТЕ $СВЕЕМ$ (у+1,х)<>” ” АМО х=3 АМО у+1=15 ОВ х=7 АМО у+1=14 ОВ х=16 АМБ у+1=16 
ОВ х=23 АМВ у+1=14 ОН х=29 АМО у+1=20 ТНЕМ РАТМТ АТ у+1,х;” ": 00 508 5500: 60 ТО 
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3320 

3315 ТЕ 5СВЕЕМ$ (у+1,х)<>” " ТНЕМ 60 ТО 5000 

3320 РАТМТ АТ у,х; ” “: 1ЕТ у=у-+1: РАТАТ АТ у,х; ТМК 5; "А" 

3330 ВЕТИВ 

4000 ТЕ х(7)<30 АМО 5СВЕЕМ$ (у(7)+1,х(2))=" " ТНЕМ РВТМТ АТ у(7),х(2);” ": ИЕТ 
х(7)=х(7)+1: ТЕ х(2)>31 ТНЕМ ЕЕТ х(7)=31 

4005 РАТМТ АТ у(7),х(7): ТМК 2; "В" 

4010 ВЕТИВ 

4100 ТЕ х(7)>0 АМО 5СВЕЕМ$ (у(7),х(7)-1)=” " ТНЕМ РАТМТ АТ у(7),х(7);" ": (ЕТ 
х(7)=х(7)-1: РАТМТ АТ у(7),х(7): ТАК 2; "В 

4110 ВЕТОВ 

4200 ТЕ у(7)>1 АМО 5САЕЕМ$ (у(2)-1,х(2))=” ” ТНЕМ РАТМТ АТ у(2),х(7);" ": ЦЕТ 
у(7)=у(2)-1: РАТМТ АТ у(2),х(2); ТМК 2; "В 

4210 ВЕТИВ 

4300 ТЕ у(2)<21 АМО 5СВЕЕМ$ (у(27)+1,х(2))=” " ТНЕМ РАТМТ АТ у(7),х(2);” ": ЕЕТ 
у(7)=у(2)+1: РАТМТ АТ у(2),х(2); ТМК 2; "В" 

4310 ВЕТОВ 

5000 ВЕЕР 1,-40: РАТМТ АТ у, х; ТМК 1: "*" 

5020 [ЕТ 1$="ПИСАМЕ О\МЕВПП” 

5030 РАЦЗЕ 30: РОВ 1=1 ТО ЕЕК 1$: РНАТАТ АТ 19,10: ТМК 2.ВАТЕНТ 1;1$(1 ТО Е): ВЕЕР 
.1,-28: МЕХТ ТР 

5040 РАЦЗЕ 200: ВИМ 

5500 РАТМТ АТ у+1,х:" ": (ЕТ 1=1+1 

5505 РАТМТ АТ 0, 26+1; ТМК 6; "С": ВЕЕР .0007,56: ВЕЕР .0005, 40 

5520 ВЕТИВМ 


6000 РАРЕВ 0: ТМК 7: ВОНОЕВ 0: (1$ 


6010 РОВ Т=0 ТО 11: РВТМТ АТ 10,2; ТМК 5;"А": РАЦЗЕ 5:РАТМТ АТ 10,Е;" ": МЕХТ РТ 
6020 РОН Е=12 ТО 16: РВТМТ АТ 10,1; ТМК 5; "А": РВТМТ АТ 11,1; ТМК 6; "С": РАЦЗЕ 5: 
РАТМТ АТ 10,1; ” ”;: МЕХТ Е 

6030 РОН Е=17 ТО 31: РВТМТ АТ 10, Е; ТМК 5;"А": РАУЗЕ 5:РАТАТ АТ 10,Р;” ": МЕХТ Е 


6040 ГЕТ 1$="ВВАМО! " 
6050 РОВ 1=1 ТО 1ЕМ 1$: РАТМТ АТ 11, 12;1$(1 ТО Г): ВЕЕР.1, +10: МЕХТ т 
6060 РАЦЗЕ 30: РОВ 1=1 ТО 30: ВЕЕР .1,А№*20+20: ВОВВЕВ А№В»7: МЕХТ Р 
6070 РАЦЗЕ 100 

6090 НИМ 


ПРИЛУНЕНИЕ 


Очень занимательная игра, хотя в ней нет ни стрельбы, ни лабиринтов, а только 
колонки цифр, за которыми, тем не менее, скрывается настоящая трагедия. 
Похожая ситуация возникла во время полета на Луну американского космического 
корабля Аполлон, когда на нем неожиданно 


--^ 


Рис. 1.9. Картинка-заставка к игре ПРИЛУНЕНИЕ. 
произошла авария, и астронавтам пришлось брать управление на себя. Для 
благополучного возвращения на Землю пришлось вычислить единственно 
возможную траекторию полета и в соответствии с ней ориентировать корабль в 
пространстве, включая двигатели на строго заданное время (в нашей игре это 
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придется делать вам, определяя дозы топлива для двигателя). 

Игра начинается с небольшого предисловия, после которого на экране 
появляется подробная информация о всех возможных параметрах прилунения. 
Эти параметры в процессе игры будут выводиться на экран в виде столбиков цифр, 
вы должны анализировать их и задавать программе одну-единственную величину - 
дозу топлива. Она может принимать значения от 8 до 200 условных единиц или 0. 
Последняя цифра означает, что ваш корабль свободно падает не расходуя топлива, 
при этом в соответствии с законами тяготения скорость падения непрерывно 
возрастает. 

Задача игрока состоит в том, чтобы к моменту достижения поверхности Луны 
скорость корабля оказалась максимально близкой к нулю. Сколько на все маневры 
понадобится времени и сколько останется горючего, особого значения не имеет, но 
за последним параметром надо постоянно следить. Программа сделана так, чтобы 
горючего только-только хватило на идеальную посадку (высота = 0, скорость = 0). 

Когда вы достигнете поверхности, появится информация о характере 
прилунения. Держим пари, что с первого раза никто из вас не посадит корабль не 
только ПРЕКРАСНО, но даже НЕУДАЧНО. Почти уверены, что и со второй 
попытки вам это не удастся, а вот когда удастся - зависит не столько от ваших 
математических способностей, сколько от сообразительности. 

Программа 42. ПРИЛУНЕНИЕ. 
0 ВОВБЕВ 0: РАРЕВ 0: ТМК 7: (15 
0 РВТАМТ АТ 10, 10; "РЕЕАЗЕ МАТТ” 
0 60 518 9900 
1 60 508 1700: (15 
2 ТМК 3 
5 РЕТМТ АТ 10, 8; РААЗН 1; "ПОСАДИТЕ ЛУННИК” 
47 РАЦЗЕ 250 
50 60 ЗВ 1000 


70 60 ЗВ 1500 
90 ВЕМ ** НАЧАЛЬНЫЕ УСЛОВИЯ *х 


г 

>> 

Фа] 
с гг 

т [и т] 

| 

а 

(>) 

<> 

(<>) 

1 


111 РАТМТ АТ 0, 11; ТММЕАЗЕ 1; ТМК 3; "ПОСАДКА" 120 ТМК 6 
5 РАШП АТ 2, 0; "ДОЗА ВРЕМЯ ВЫСОТА СКОР. ГОРЮЧЕЕ" 130 РАТМТ АТ 4,0; 

210 ТЕ А<=1 ТНЕМ 60 ТО 213 

Т ЕЕТ Н=ТМТ А 

0 ТО 214 

ЕТ Н=1000*(А-ТМТ (А)): ЕТ Н=ТМТ Н 

ЕТ Ц=ТАТ ((М-№)/10) 

ЕТ Е=ТМТ (\*3600) 

Е УР=20 ТНЕМ ЕТ УР=2: РОН (=3 ТО 21: РАТМТ АТ С,0; ТАВ 31: МЕХТ С: РАТАТ АТ 


ЕТ УР=УР+1: ТМК 5: РАТМТ К; ТАВ 6:1: ТАВ 13:Н: ТАВ 19:Е; 

7; 0 

230 ТМРИТ “ВВЕДИТЕ ДОЗУ:"; К: ЕЕТ Т=10 

240 ТЕ К=0 ТНЕМ 60 ТО 310 250 ТЕ К>=8 АМО К<=200 ТНЕМ 60 ТО 310 

260 РАТМТ Н0;АТ 0,0: ТМК 2: "ТАКОЕ “""К"" НЕВОЗМОЖНО, ВВЕДИТЕ НОВОЕ": РАЦЗЕ 200 
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60 ТО 230 


© 
СА: Я % го 


— 
у > м -ь 
осо хто ххлто о © бл 


(<=>) 


(М-№)-0.001)<0 ТНЕМ 60 ТО 410 
Т-.001)<0 ТНЕМ 60 ТО 210 

$=Т 
(№+5*К)-М)<=0 ТНЕМ 60 ТО 350 
$=(М-№)/К 


ТЕ 1<=0 ТНЕМ 60 ТО 710 
ТЕ \<=0 ТНЕМ 60 ТО 380 
ТЕ 4/<0 ТНЕМ 60 ТО 810 
60 $508 600 


60 ТО 310 


юг огг г ++<> 
ЖЕ АН А Ш Я | 


ТЕ 


5 
К 


РАТМТ “УДАЧНОЕ ПРИЛУНЕНИЕ" 


ТМТ “СЕЛИ НЕУДАЧНО”: РАТМТ 


5: РАТМТ “ГОРЮЧЕЕ ВЫШЛО НА ";[;” СЕКУНДЕ” 
$=(-\+50А (\»*\/+2*А*б))/б 

\/=\/+6*5 

Г=ТАТ (1+5) 

Т “ЛУНЫ ДОСТИГЛИ НА “;Е;” СЕК” 

\\=\/*3600: ЕТ Х=ТАТ и 

Т “СО СКОРОСТЬЮ “;Х;” КМ/Ч" 

М-№)<=0 ТНЕМ 60 ТО 530 


ТМТ "ГОРЮЧЕГО ОСТАЛОСЬ “;ТМТ ((М-№/10);” ЕД” 
ТТ: Кб 


-\+1)<=0 ТНЕМ 60 ТО 550 
Т “ПРЕКРАСНОЕ ПРИЛУНЕНИЕ”: РАТМТ 
ТО 590 
-\+10)<=0 ТНЕМ 60 ТО 560 


-\+25)<=0 ТНЕМ 60 ТО 570 


-№+60)<=0 ТНЕМ 60 ТО 580 


ТМТ "ЛУННИК ПОВРЕЖДЕН”: РВТМТ 


ИЗВИНИТЕ, НО ЛУННИК”: РАТМТ 


ТАТ "ИСЧЕЗ, А ПОЯВИЛСЯ”: РАТМТ 
ТМТ "НОВЫЙ в КРАТЕР”: РАТМТ 
ТАТ "ДИАМЕТРОМ " 


ТМТ (\№0.0847); " 
ТАК 1; 'ПОПРОБУЕТЕ ЕЩЕ? ры 


ТЕ ТИКЕ\$ =" '’ ОА ТМКЕУ$="9” ТНЕМ ТЕТ АМТ=0: 60 ТО 100 
ТЕ ТМКЕУ$="№М" ОВ Т№МКЕУ$="п” ТНЕМ 60 ТО 596 


[А ПРЕ опр ПРО аня р ЛИ Е ЖАН НЕЙ ЕВА ЕР ЖЖ О  чеНИ 15 В 5. 


гп <> <> © пт и пт пт пт мт пт пт пт 2 Г 


т 


АТМТ АТ 10,8; ТМК С; "ДО НОВЫХ ВСТРЕЧ! “ 


(=С-1: ТЕ (С<0 ТНЕМ (ЕТ С=7 
ЗЕ 5: 60 ТО 597 


(5-.005)<0 ТНЕМ (1$ : 60 ТО 510 
$=2*А/(\+508 (\»\+2*А* (6-7*К/М))) 
ИВ 900 

ИВ 600 

ТО 710 
=(1=з0/(78К 2 
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815 ЕЕТ 5=М»\/(7=К» (+508 (М=М+\/7)))+.05 
820 60 508 900 

830 ТЕ 1<0 ТНЕМ 60 ТО 710 

835 60 $508 600 

840 ТЕ (-/)<=0 ТНЕМ 60 ТО 310 

845 ТЕ \М<=0 ТНЕМ 60 ТО 310 

850 60 ТО 810 

900 ГЕТ 0=5*К/М 

905 ТЕТ у=\/+6*5+7» М (1-0) 


ГЕТ 1=А-6*5*5/2-\*5 

ГЕТ С=0/2+0^2/6+0^3/12+0 
ГЕТ 1=1+7*5*С 

ВЕТИВМ 


02 (15$ 

РАТМТ АТ 0,8; ТМК 3; "** 
Ко 
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ЕТЕ РАДИОАКТИВНЫЙ КОРАБЛЬ В СПАСАТЕЛЬНОЙ КАПСУЛЕ. ПРИ 
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9910 РОВ №=1 ТО 20 
9920 ВЕАО А$ 
9930 РОВ М=0 ТО 7 


9940 ВЕАВ 5 
9950 РОКЕ 058 А$+М, 5 
9960 МЕХТ М 
9970 МЕХТ № 
9975 БАТА “В”, 0, 124, 64, 124, 66, 66, 124,0 
9976 БАТА "(",0, 126, 64, 64, 64, 64, 64,0 
9977 ВАТА "0", 0, 28, 36, 36, 36, 36, 126, 66 
9978 ВАТА "/", 0, 73, 73, 62, 73, 73, 73,0 
9979 ВАТА “Т”, 0, 66, 70, 74,82, 98, 66,0 
9980 ВАТА "|", 0, 30, 34, 34, 34, 34,98,0 
9981 ВАТА “Р”,0, 126, 66, 66, 66, 66, 66,0 
9982 БАТА "0",0,66, 66, 36, 24, 16, 96,0 
9983 ВАТА "С", 0, 68, 68, 68, 68, 68, 126,2 
9984 ВАТА “Н",0, 66, 66, 66, 62,2,2,0 
9985 ВАТА "№", 0, 65, 73, 73, 73, 73, 127,0 
9986 БАТА "М", 0, 65, 73, 73, 73, 73, 127,1 
9987 ВАТА "Е", 0, 60, 66, 30,2, 66, 60,0 
9988 ВАТА "",0, 76, 82, 114, 82, 82, 76,0 
9989 ВАТА "А", 0, 62, 66, 66, 62, 34, 66,0 
9990 ВАТА "5", 24, 66, 70, 74, 82,98, 66,0 
9991 ВАТА "Н”, 0, 64, 64, 124,66, 66, 124,0 
9992 ВАТА “Т”, 0, 192, 64, 124, 66, 66, 124,0 
9993 ВАТА “Е”, 0, 62, 73, 73, 73,62,8,0 
9994 БАТА "0",0, 66, 66, 114, 74, 74, 114,0 
9995 ВЕТИВМ 

КОРОЛЕВСТВО 


Эта текстовая игра сделана целиком на русском языке, поэтому подробных 
пояснений к ней не требуется; Достаточно читать выводимые на экран вопросы и, 
опираясь на логику и свой жизненный опыт, давать ответы. 

Вы являетесь монархом маленькой аграрной страны где-то в центре Европы. 
Земли королевства плодородны, крестьяне счастливы, да вот беда: соседи, как 
всегда, завистливы. Но, несмотря на это, вы должны обеспечить процветание своей 
страны и даже попытаться расширить свои владения. Эта задача не так легка, как 
может показаться на первый взгляд - ведь против вас действует изощренная 
компьютерная программа. Она насылает на королевство всевозможные напасти: от 
холеры и чумы до нашествия саранчи и крыс. Да и враги не теряют зря времени, 
пытаясь отхватить то один, то другой кусочек ваших владений. 


ИНСТРУКЦИЯ НУЖНЯ? (Дин) 

Рис. ПЦ. 10. Заставка к игре КОРОЛЕВСТВО. 
В вашем распоряжении три показателя, которыми можно распоряжаться в 
зависимости от ситуации: население, земля и зерно. Например, чтобы защититься 
от врагов, можно воспользоваться услугами наемников, но им надо чем-то платить. 
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Вот и решайте: то ли отдать часть зерна и заставить голодать своих подданных, то 

ли уплатить землей, что в конце концов тоже грозит недобором зерна и голодом. 

Вот и приходится 
королю постоянно лавировать между желаемым и возможным, не забывая о 

том, что при любых обстоятельствах надо сохранить корону, а иначе... 

Программа 43. КОРОЛЕВСТВО. 
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1) ТНЕМ 60 508 7100: РАЦЗЕ 200: 60 ТО 1750 
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ПРИЛОЖЕНИЕ 1. НЕСКОЛЬКО ИГРОВЫХ ПРОГРАММ 


1955 
1960 
1962 
1970 


(Е(1)/З);В$;" 


РВТМТ “НАНЯТО:”; 
РАТМТ “ИТОГО: "; 


КО 


ТМК 2; АВМ; ТАК 4;” СОЛДАТ” 


ТЕ АВМ=О ТНЕМ (ЕТ №=.2: 60 ТО 1920 


ГЕТ \=.1 
ТЕ ВМО>М ТНЕМ 60 
ВЕМ -- ПЕРЕГОВОР 
ВЕМ 


РАТМТ “НАЧАЛИСЬ 
РЕТМТ “ВОЙНЫ НЕ 
ЗЕРНА. " 
РАТМТ “ВЫ СОГЛАС 
ТЕ ТМКЕУ$="0” ТН 
ТЕ ТМКЕУ$ =" М" ТН 
60 ТО 1960 

ЕТ 7(3)=-ТАТ (2 
ТЕТ Е<8)=-1М№Т (Е 
ГЕТ Е(1)=Е(1)+Е 
ЕТ 7(1)=7(1)+2 
60 ТО 2300 
ВЕМ -- СРАВНЕНИЕ 
ВЕМ 
60 508 7000: (1$ 
РЕТМТ “ВАШИ ВОЙС 
ТЕТ АВМ1=ТАТ (В 
РЕТМТ “ВОЙСКА ПР 
ТР АВМХАНМ1 ТНЕ 


ТО 2000 


Ы ------ 


ИРНЫЕ ПЕРЕГОВОРЫ: " 
БУДЕТ, 


НЫ С ЭТИМИ УСЛОВИЯМИ?ППП” `" 
ЕМ 60 ТО 1975 
ЕМ (15 : 60 ТО 2020 


1)/3) 
1)/3) 
8) 

) 


СИЛ -- 


(ДИН)” 


(9%) 


КА:”; АВМ; ” ЧЕЛОВЕК” 
0*Е(1 )+Е(1)/120) 
ОТИВНИКА: "; АВМ1; ^ 
60 ТО 2200 

ГРАНА -- 


ЧЕЛОВЕК" 


ГРАНА" 


ЕСЛИ ВЫ ОТДАДИТЕППП” ТМТ (7(1)/3) ;" 


08/4.5): 


ГЕТ ТЕ=ТЕ-2 


1)/1.5) 
ТМТ (Е(10)/2+М№А/2) 
[(1)+Е(5) 
2(1)+7(3) 
)=Е(1)+Е(8) 


ВЕМ -- ВОЙНА ПРОИГРАНА 
РЕТМТ “ВОЙНА ПРОИГРАНА! "" 


ЕТ 1(5)=-ТМТ (Е(1)/2): ТЕТ ТЕ=ТЕ+!МТ (Е(8)/2) 
ЕТ 7(3)=-ТМТ (7(1)/2) 

ГЕТ Е(8)=-ТМТ (Е(Т)/2) 

ГЕТ Е(1)=Е(1)+Е (5) 

ЕТ 7(1)=7(1)+7(3) 

ТЕТ Е(1)=Е(1)+Е(8) 

ВЕМ -- НАЕМНИКИ -------- 

ТЕ МА<=Е(1) ТНЕМ 60 508 7000: 60 ТО 2400 

60 508 7000: СЕ$ 


РАТМТ “У ВАС НЕ ХВАТИТ ЗЕРНА ЗАПЛАТИТЬПП” ° 


ЕТ 1(7)=-ТАТ (.75*Ё(1)) 
ЕТ Е(9)=-ТАТ (.5*Е(1)) 
БЕТ Е(1)=Е(1)+Е(7Т) 

ЕТ Е(1)=Е(1)+Е(9) 

60 508 7000: 60 ТО 2420 
ВЕМ ------------------- 
ЕТ Е(6)=-МА 

ЕТ Е(1)=Е(1)+Е(6) 

60 ТО 200 

ВЕМ ---------------------- 
60 ТО 200 


“НАЕМНИКАМ! ! | " 


АКРОВ ЗЕМЛИ И “; 
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ТТ 


ПРИЛОЖЕНИЕ 1. НЕСКОЛЬКО ИГРОВЫХ ПРОГРАММ 
ООО И ыы еься 


7000 РАТМТ #0;АТ 1,0; ТМК 3; "ПАППППНАЖМИТЕ ЛЮБУЮ КЛАВИШУ” 


7005 ТЕ Т\КЕ!$="” ТНЕМ 60 ТО 7005 
7007 РАТМТ #0; АТ 1, 0; "ППППППЛАПАЛАЛАПАЛАПАППППППППАЛПЛИ” 
7010 ВЕТИВМ 
7100 РВТМТ “У ВАС НЕТ СТОЛЬКО ЗЕРНА”: ВЕТОВМ 
7150 РВТМТ “У ВАС НЕТ СТОЛЬКО ЗЕМЛИ”: ВЕТОВМ 
7200 РВТМТ “У ВАС НЕ ХВАТИТ ДЛЯ ЭТОГО НАРОДА”: ВЕТОАМ 


7250 РЕТМТ “У ВАС НЕТ СТОЛЬКО БОЕСПОСОБНЫХППП” ` "ЛЮДЕЙ! ": ВЕТОВМ 


В 

ВЕМ -- ИНСТРУКЦИЯ --8010 (1$ 
8015 РАТМТ ТАВ 11; ТМК 5; "ИНСТРУКЦИЯ" 
РАРЕВ 7: ТАК О 


"СЕДИ ЗАВИСТЛИВЫ. " 


8050 60 ИВ 7000 
8060 РАРЕВ 0: ТМК 7: (15 
8070 60 ТО 150 

9899 ТОР 
9900 ВЕМ ---------------------- 
9902 НЕМ Виз. А1Рамте 

9903 НЕМ 
9910 РОН М=1 ТО 20 
9920 ВЕАО А$ 

9930 РОН М=0 ТО 7 


9940 ВЕАБ $ 

9950 РОКЕ 058 А$+М, 5 

9960 МЕХТ М 

9970 МЕХТ № 

9975 ВАТА "В", 0, 124, 64, 124, 66, 66, 124,0 
9976 БАТА "@”,0, 126, 64, 64, 64, 64, 64,0 
9977 ВАТА "0", 0, 28, 36, 36, 36, 36, 126, 66 
9978 ВАТА "\/",0, 73, 73,62, 73, 73, 73,0 
9979 ВАТА “Т",0, 66, 70, 74, 82, 98, 66,0 
9980 ВАТА "|", 0, 30, 34, 34, 34, 34, 98,0 
9981 ВАТА “Р",0, 126, 66, 66, 66, 66, 66,0 
9982 ВАТА "0",0, 66, 66, 36, 24, 16, 96,0 
9983 ВАТА "С",0, 68, 68, 68, 68, 68, 126,2 
9984 ВАТА “Н",0.66, 66, 66, 62,2,2,0 
9985 ВАТА "М", 0,65, 73, 73, 73, 73, 127,0 
9986 ВАТА "М", 0,65, 73, 73, 73, 73, 127,1 
9987 ВАТА "Е",0, 60, 66, 30,2, 66, 60,0 
9988 ВАТА "И", 0, 76, 82, 114, 82, 82, 76,0 
9989 ВАТА “"А",0,62, 66, 66, 62, 34, 66,0 
9990 ВАТА "5", 24, 66, 70, 74, 82,98, 66,0 
9991 ВАТА “В”, 0, 64, 64, 124, 66, 66, 124,0 
9992 ВАТА “Т",0, 192, 64, 124, 66, 66, 124, 0 
9993 ВАТА "Е", 0, 62, 73, 73, 73, 62,8,0 
9994 ВАТА "0", 0,66, 66, 114, 74, 74, 114,0 
9995 ВЕТИВМ 


8030 РАТМТ “ВЫ ЯВЛЯЕТЕСЬ МОНАРХОМ МАЛЕНЬКОЙ “”`"АГРАРНОЙ СТРАНЫ В 
ЦЕНТРАЛЬНОИППП" "ЕВРОПЕ. ВАША ЗЕМЛЯ ПЛОДОРОДНА, ПП” “КРЕСТЬЯНЕ СЧАСТЛИВЫ, 
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НО ВАШИ С0- 


8040 РАТМТ “ВАША ЦЕЛЬ - СОХРАНИТЬ ВАШ ТИТУЛ, "` "УВЕЛИЧИТЬ ВЛАДЕНИЯ, ПОЗАБОТИТЬСЯ” ` "ОБ 
УВЕЛИЧЕНИИ НАРОДОНАСЕЛЕНИЯ, 0”’ "ПОВЫШЕНИИ БЛАГОСОСТОЯНИЯ ЛЮДЕЙ. “ 
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Приложение 2. Основные операторы, функции и команды 
Зрес4гит-Бейсика 


АВ м 


АСЗ р 


АМО 


АБМ р 


АТ у, х 


АТМ р 


АТТВ (у,х) 


ВЕЕР &,В 


ВТМ 5 


ВОВОЕВ с 


Стр. 247. Абсолютное значение числа т'. 
РАТМТ АВЗ -12 
12 


Функция арккосинус; р задается в пределах от -1 до 1, результат 
печатается в радианах. 

РАТМТ АСЗ 0.5 

7. 04719767 


Стр. 54, 57. Логический оператор. 
ГЕТ х=7:1Е х>5 АМО х<10 ТНЕМ РАТМТ "О’Кау” 
О’кау 


Функция арксинус, р задается в пределах от -1 до 1, результат 
печатается в радианах. 

РАТМТ АЗМ 0.7 

0. 7723975 


Стр. 15. Оператор задает знакоместо для вывода данных в РЕП\Т и 
ПУРОТ. Параметр у определяет номер строки (0...21), а параметр х - 
номер столбца (0...31). 


Функция арктангенс, результат печатается в радианах. 
РАТМТ АТМ 20. 742 
1. 2226223 


Функция возвращает число от 0 до 255, соответствующее 
атрибутам знакоместа. Позиция знакоместа задается 


целочисленными величинами: (0...23) и (0...31). 
10 ЕЕАЗН 1:РАРЕВ З:1МК 7:ВАТЕНТ 0 
20’ РАТАТ-АТ 10,12; "—” 
30 РАТМТ АТТА (10, 12) 
129 


Стр. 30. Оператор генерирует звук длительностью { (в секундах) и 
высотой В (в полутонах). Число В = 0 соответствует ноте ДО 
первой октавы. 

ВЕЕР" 0050.8 


Стр. 46. Команда переводит двоичное число $ в десятичное (нули в 
левой части числа можно опускать). 


РАТМТ ВТМ 10011010 
124 


Стр. 14. Оператор задает цвет поля вокруг рабочей области экрана 
и цвет фона служебного окна. Параметр с принимает 


'Во всех примерах результаты, выводимые на экран, будем выделять курсивом. 
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ВВТСНТ а 


САТ 


СНВ$ К 


СТВСЬЕ х,у,Е 


СЬЕАВ п 


СТОЗЕ #а 


СЬ5 


СОРЕ А$ 


СОМТТМОЕ 


СОРУ 


СоО5 р 


РАТА 
а,Б,с,9$,К$ 


целочисленные значения в пределах 0...7. 
ВОВОЕН 1:ВЕМ синий цвет бордюра 


Стр. 55. Оператор устанавливает яркость выводимого 
символа.Число $ принимает одно из целочисленных значений: 
0 - для нормальной яркости, 1 - для повышенной яркости, 8 - 
сохраняет существующую яркость. 

РАТМТ “ВАВ ”; ВЕТОНТ 1;"ВАВ”; ВАТОНТ 0; “АВВ” 


Ключевое слово в эрестат- Вас не задействовано. 


Стр. 54. Функция возвращает символ по указанному, в аргументе 
коду К. Код принимает значения 0...255. 

РАТМТ СНВ$ 35 

й 


Стр. 163. Оператор строит на экране окружность радиуса г, центр 
которой имеет горизонтальную координату х (0...255), а 
вертикальную -у (0...175). 

СТВСЕЕ ТМК 1;100, 50, 42 


Стр. 60. Оператор уничтожает все переменные и очищает 
занимаемую ими память. Выполняет КЕЗТОКЕ и С15, 
устанавливает РГОТ-позицию в нижнюю левую точку экрана. 
Изменяет системную переменную КАМТОР на п и задает новый 
СО 5ОВ стек. 

СТЕАВ 40000 


Оператор используется при работе с потоками и каналами 


Стр. 15. Оператор очищает основной экран и окрашивает его в 
текущий постоянный цвет фона. 


Стр. 43. Функция возвращает код первого символа символьного 
значения А$ в соответствии с таблицей символов 7Х Зрести [ |. 
РАТМТ СО0Е “"Зутбо1" 
83 


Команда продолжает выполнение программы с оператора, на 
котором она была прервана. 


Оператор распечатывает копию 22 строк экрана на принтере. 


Функция вычисляет косинус угла р, заданного в радианах. 
РАТМТ 00$ 1.4 
0. 169967140 


Стр. 21. Оператор задания списка данных - произвольного набора 
числовых (а, Ъ, с) и символьных (9$,К$) значений. Оператор РАТА 
можно помещать в любом месте программы. 

АТА 56, 0, 128,37, 11, 0, "Зокобап", 68 
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ОЕЕ ЕМ 
В(х,у) =Е 


ОТМ В (м) 


ОТМ В(м,п) 


ОТМ В$ (ш,п) 


ОВАИ х,у 
[,х] 


ЕВАБЕ 


ЕХР х 


ЕБАЗН р 


ЕМ 


ЕОВК п=а ТО Ь 


Оператор определяет пользовательскую функцию (дополнительно 
к «встроенным» в Бейсик). Здесь К - имя функции, х, у - параметры 
функции, Е - числовое выражение, залающее саму функцию. 
Вызов пользовательской функции осуществляется ключевым 
словом ВМ. 

100 БЕЕ РМ Е(х,у)=хЕ2+4.5*х-0.8*у+9.6 

300 РВТМТ ЕК 1(3.69,0.23) 

47. 03214 


Стр. 21. Оператор задаст одномерный числовой массив на т 


элементов, 
10 01М \(128) 


Стр. 22. Оператор задает двухмерный числовой массив, 
рассчитанный на шт строк по п чисел в каждой. 
ОТМ 7(20,5) 


Стр. 22. Оператор задает двухмерный символьный массив, 


рассчитанный на т слов по п символов в каждом. 
ТМ К$(15, 8) 


Стр. 23. Оператор строит на экране отрезок прямой линии или 
дугу окружности. Относительное расстояние (в пикселях) от 
начала отрезка до его конца измеряется величиной х по 
горизонтали и у по вертикали. 

ОНАМ ТМК 5; 100, 20, 8 


Ключевое слово в эрестат- Ваз! не задействовано. 


Экспоненциальная функция, возводит число е=2.7182818 в 


степеньх. 
РАТМТ ЕХР 1 
2. 7192818 


Стр. 59. Оператор устанавливает режим мерцания при 
отображении символьной и графической информации. Число р 
принимает одно из целочисленных значений: 0 - постоянное 
свечение, 1 - включает режим мерцания, 8 - сохраняет предыдущее 
состояние. 

РАТМТ ЕЕАЗН 1; "7Х зресёгит” 


Возвращает значение пользовательской функции, заданной 
оператором РЕР ЕМ№. 


Стр. 19. Оператор цикла, позволяющий выполнять [5ТЕР $] часть 
программы, заключенную между операторами ЕОК и МЕХТ, 
заданное число раз. Управляющая переменная п принимает 
значения от п=а до п=Ъ с шагом $. Если шаг не задан, то по 
умолчанию он принимается равным 1. 

200 РОН п=1 ТО 10 


210 РАТАТ "»”; 
220 МЕХТ п 
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ЕОВМАТ 


СО 50В п 


СО ТО п 


ТЕ...ТНЕМ.. 


ТМ м 


ТМК с 


ТМКЕУ$ 


ТМРОТ а,Ъ,Е$ 


ТМТ х 


ТМУЕВЗЕ р 


Ключевое слово в эрестат- Ваз!с не задействовано. 


Стр. 33. Оператор передачи управления подпрограмме. Номер 
строки, с которой начинается подпрограмма, задается 
целочисленным значением п. Текст подпрограммы должен 
заканчиваться оператором КЕТОВКМ, который возвращает 
управление оператору, следующему за СО 50В. 


120 60 508 3000 
130 60 $18 500 


Стр. 25. Оператор безусловного перехода на строку с номером п, 
который должен иметь целочисленное значение. 
60 ТО 330 


Стр. 26. Оператор условного перехода, причем условие ставится за 
ГЕ. Если это условие выполняется, то управление передается на 
оператор (операторы), стоящий за ключевым словом ТНЕМ. Если 
же оно не выполняется (ложно), то управление переходит к 
следующей строке программы. 

40 ТЕТ х=7 

50 ТЕ х<5 ТНЕМ РАТМТ "9009": 60 Т0 300 

60 РВТМТ “рад” 

рад 


Стр. 109. Функция считывает число (байт) из порта. Алрес порта 
задается целочисленным значением т (0... 65535), записываемым 


за ключевым словом. 
480 1ЕТ 70=Т\ 31 


Стр. 15. Оператор устанавливает цвет тона, то есть цвет, в который 
окрашиваются выводимые на экран символы, точки, линии. Код 


цвета с должен иметь одно из целочисленных значений (0...9). 
50 РАТАТ АТ 10, 12; ТМК 4; "Элис1атг” 


Стр. 26. Функция возвращает символ, соответствующий нажатой 
клавише. Используется для обнаружения факта нажатия клавиши 


на клавиатуре. 
100 ТЕ ТМКЕУ$="Р” ТНЕМ 60 ТО 1000 
120 ТЕ ТМКЕУ$="0” ТНЕМ 60 ТО 2000 


Стр. 53. Оператор ввода данных в программу: присваивает 
числовым или символьным переменным а, Ъ, {$, расположенным 
за ключевым словом, соответственно, числовые или символьные 
значения, набираемые на клавиатуре. 

20 ТМРИТ ТМК 1; "паме: "; К$ 


Стр. 24. Функция преобразует числовое значение х д 
ближайшего (меньшего) целого числа. 


РАТМТ ТМТ 23.59; "” "; ПП-3. 84 
23 -4 


Стр. 213. Оператор устанавливает режим инвертированного 
отображения графической и символьной информации. Число р 
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БЕМ а$ 


ТЕТ х=а 


ЬТМЕ м 


ЬТ5Т м 


ГТЬТ м 


ГОАО а$ 


ТОАШ а$ СОРЕ 


[0], [1] 


ТОАР а$ РАТА 


г[$] 


() 


может принимать одно из следующих целочисленных значений: 

О - устанавливает нормальный режим цветопередачи; | - при 
печати символов цвет тона и цвет фона меняются местами; 
графическая информация отображается цветом фона и 


становится невидимой. 
10 РАРЕН 7; ТАК 0:015$ 
20 ТММЕВЗЕ 1: РАТМТ "Мооп” 


Стр. 27, 28. Функция возвращает длину (число символов) 
символьного значения а$. 


РАТМТ ЕЕК “Сотр11ег” 
8 


Стр. 20. Оператор присваивает переменной х значение а. 
30 (ЕТ у=3. 1415926 
40 ЕТ 0$="Таре” 
50 ЕЕТ $(12.7)=128 


Стр. 19. Ключевое слово ставится после оператора ЗАУЕ и 
указывает, что программа после ее загрузки оператором ГОАР 
будет сразу запущена со строки с номером т. 

ЗАМЕ "ЗТаг” ЕТМЕ 10 


Оператор выводит на экран листинг бейсик-программы, 
находящейся в памяти компьютера, начиная со строки т. Если 
номер не указан, выводится вся программа. 


Оператор распечатывает на принтере листинг бейсик-программы, 
находящейся в памяти компьютера, начиная со строки т. 


Функция натурального логарифма положительного числа 7. 
РАТМТ [М 5.5 
7. 704748 


Стр. 19. Оператор загрузки бейсик-программы в память 
компьютера. Имя программы задается значением, а$. ГОАО с 
«пустым» именем загружает первую встретившуюся на ленте 
программу. 

ГОАБ “Ехргез$” 

ГОАБ “^” 


Стр. 43. Оператор загрузки в память компьютера кодового блока 
(последовательности байтов). Имя файла, в котором был сохранен 
блок на магнитной ленте, задается символьным значением а$ За 
ключевым словом СОПЕ указывается адрес п размещения блока 
кодов в памяти компьютера и количество загружаемых байт - |. 

[ОАО “Ваздегз” СО0Е 

ГОАО “Мах1т” СООЕ 16384, 6912 

[ОАО “” СОБЕ 


Оператор загружает с магнитной ленты в память компьютера 
массив. Имя файла, содержащего массив, задается символьным 
значением а$ Следом за РАТА указывается имя массива г (буква 
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ГОАО а$ 
ЗСВЕЕМ$ 


МЕВСЕ а$ 


МОУЕ 


МЕМ 


МЕХТ п 


МОТ 


ОВ 


ОПТ =, 


или буква со знаком $) с пустыми скобками. 
ГОАБ “Ртдпфег” БАТА г() 
ГОАО “Моп1{ог” ОАТА $$() 


Оператор загружает с магнитной ленты блок кодов 
непосредственно в экранную область памяти, и на экране 
воспроизводится ранее записанная картинка. Имя файла, в 
котором она была сохранена на ленте, - а$. 

[ОАО "7азтамка” ЭСВЕЕМ$ 


Стр. 146. Оператор подгружает бейсик-программу с магнитной 
ленты в память компьютера, не стирая уже находящейся там 
программы. Имя загружаемой программы задается значением а$. 
Оператор МЕКВСЕ соединяет две программы, располагая их строки 
по порядку возрастания номеров. 

МЕВСЕ" Соттапа” 


Ключевое слово в эрестат-Ваз1с не задействовано. 


Стр. 144. Оператор очищает область памяти, отведенную для 
размещения и работы бейсик-программы. 


Стр. 19. Оператор цикла, позволяющий выполнять часть 
программы, заключенной между РОК и МЕХТ, заданное число раз. 
Управляющая переменная п принимает значения отп =адоп=Ьс 
шагом В. Если он не задан, то по умолчанию принимается 1. 

200 РОН п=1 ТО 10 

210 РАТАТ "»”; 

220 МЕХТ п 


Стр. 55. Логический оператор отрицания условия, стоящего за 
ключевым словом: истинное условие делает ложным, ложное - 
истинным. 

60 ЕТ х=5:ТЕ МОТ (х>10) ТНЕМ РАТМТ “№” 
Функция возвращает 0, если числовое значение, следующее за 
ключевым словом, не равно нулю; 1 - если значение равно нулю 

РАТМТ №Т(7»8-56) 

7 
Стр. 34. Оператор логического сложения условий. Комбинация 
условий, объединенных операторами ОК, истинна, если истинно 
хотя бы одно из них. 

50 ТЕТ у=64: 

60 ТЕ у=32 ОВ у=64 ОВ у=128 ТНЕМ РВТМТ “ЕеРт” 
Функция возвращает значение, стоящее перед ключевым словом, 
если се аргумент равен 0 или возвращает 1, если аргумент не равен 
0. 


РАТМТ 33 ОН б 
7 


Стр. 113. Оператор записывает в порт целочисленное значение Б 
(0...255), адрес которого задается целочисленным значением $ (0... 
65535). 

ОТ 254,3 
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ОУЕВ 5 


РАРЕВ Сс 


РАОЗЕ Е 


РЕЕК п 


РТ 


РОТ х ‚У 


РОТМТ х,‚ У 


РОКЕ п, Б 


Стр. 33. Оператор устанавливает режим наложения изображений 
на экране. Число $ может принимать значения: 
0 - устанавливает нормальный режим отображения информации; 1 
- новое изображение накладывается на уже существующее на 
экране, не стирая его. Точки пересечения принимают окраску 
фона; 8 - задает режим прозрачности, при котором режим 
наложения соответствует ранее установленному для данного 
знакоместа. 

10 О\ЕВ 1 

20 РВТИТ АТ 10, 10; 


1-2 
30 РАТАМТ АТ 10, 11; "а В 
7а269С 


3" 
я 


Стр. 15. Оператор устанавливает цвет фона - цвет, в который 
окрашивается экран. Число с принимает целочисленное значение 
в пределах от 0 до 9 и является кодом цвета. 

10 ВОВОЕН 0: РАРЕА О:ТМК 7 


Стр. 17. Оператор приостанавливает работу программы на время, 
задаваемое целочисленным значением { (0... 65535). Пауза равна 
{/50 сек. Оператор РАЧЪЗЕ 0 продолжит работу программы только 
после нажатия какой-либо клавиши. 

РАЦЗЕ 200 (пауза на 4 сек.) 


Стр. 138. Функция считывает число в интервале от 0 до 255 (байт) 
из ячейки памяти. Адрес ячейки задается целочисленным 
значением п (0... 65535). 

60 РОКЕ 40000, 209 

70 РАТМТ РЕЕК 40000 

209 


Стр. 84. Функция возвращает значение числа «пи» (3.1415926). 
РАТМТ РТ 
3. 1412926 


Стр. 23. Оператор ставит на экране точку (включает пиксель). 

Позиция точки задается двумя целочисленными значениями 

координат: горизонтальной -х (0...255) и вертикальной -у (0...175). 
300 РЕОТ ТАК 1; ТММЕВЗЕ 1;х,у 


Функция проверяет состояние пикселя. Если он включен 
(окрашен в цвет тона), функция возвращает 1,‚а если выключен 
(окрашен в цвет фона) - 0. Числа х и у соответствуют 
горизонтальной (0...255) и вертикальной (0...175) координатам. 

570 ТЕ РОТ (х,у)=1 ТНЕМ 60 ТО 240 


Стр. 46. Оператор записывает в память целочисленное значение Ь 
(0...255). Адрес ячейки памяти задается целочисленным значением 
п (0... 65535). 

100 РОКЕ 23609, 155 

110 РВТМТ РЕЕК 23609 

Я 
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РВТМТ а [$1] Стр. 15. Оператор выводит на экран данные - числовые а и 


ВАМООМТАИЕ К 


ВЕАО м 


ВЕМ 


ВЕЗТОВЕ п 


ВЕТОВМ 


ВМО 


ВОМ [0] 


символьные 5$ значения, слелующие за ключевым словом. Перед 
блоками данных могут ставиться слова, залающие атрибуты (АТ, 
ТАВ, ПМК, РАРЕВ, ЕГАЗН, ПМУЕК$Е и ОУЕК). 25 РЕИМТ АТ 
15,10;:П\МК 1:РАРЕК 4:"Ратаптаа" 

Числовые выражения, стоящие за РКИМТ, вычисляются, и на 
экране отображается результат в десятичной форме. Числа 
больше 10°’ и меныше 10” отображаются в экспоненциальной 
форме. 

РАТАТ 500000000 


5Е8 
Для управления печатью используются следующие символы: ; - 
блоки отображаются один за другим без пробелов; ‚ - текущая 


позиция печати переводится на середину текущей строки или в 
начало следующей, в зависимости от позиции последнего 
напечатанного символа; ' - данные, отделенные апострофом, 
печатаются с новой строки. 


Стр. 64. Оператор задает начало последовательности случайных 
чисел, генерируемой оператором КМО. Целочисленное значение К 
(Ты: 65535} устанавливает фиксированное начало 


последовательности. 
ААМООМТИЕ 51000 


Стр. 21. Оператор присваивает переменной \м значения, 
считываемые из списка данных, следующих за оператором РАТА. 
50 ВЕАБ х 


Стр. 18. Оператор отделяет текст комментариев от текста 
программы. Следом за КЕМ могут стоять любые символы. 
100 60 5ЦВ 5000: ВЕМ Подпрограмма заставки. 


Стр. 121. Оператор указывает строку п РАТА, с которой нужно 
считывать данные следующим по программе оператором ВЕАШ. 
Если п не указано, либо п=0, то оператор КЕАО обращается к 
первому в программе оператору ВРАТА. 


Стр. 29. Оператор заканчивает подпрограмму (СО ЗОВ) и передает 
управление на оператор, следующий сразу за СО ОВ. 


Стр. 24. Функция возвращает псевдослучайное число в интервале 
от 0 до 1, исключая саму 1. Изменить последовательность можно 
выполнением оператора КАМРОМПИЕ. 

РОВ ]=1 ТО 5:РАТМТ ВМО: МЕХТ } 

0. 26338196 

0. 75448608 

0. 58673096 

0. 00527954 

0. 39709473 


Стр. 18. Оператор запуска бейсик-программы. Для запуска с 
определенной строки, должно быть задано целочисленное 
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ЗАУЕ а$ 
[ЫТМЕ п] 


ЗАУЕ а$ СОПЕ 
п,1 


ЗАУЕ а$ РАТА 
г[$1 () 


ЗАУЕ а$ 
ЗСВЕЕМ$ 


ЗСВЕЕМ$ 
(у,х) 


5См а 


ТМ р 


значение п. 


Стр. 19. Оператор записывает бейсик-программу на магнитную 
ленту. Программе присваивается имя, задаваемое символьным 
значением а$, которое должно содержать не более десяти 
символов и не может быть «пустым». Ключевое слово МЕ 
указывает, что программа после ее загрузки оператором ГОАР 
будет сразу запущена со строки с номером п. 

ЗАУЕ "Рох" ЕТМЕ 5 


Стр. 18. Оператор сохранения на магнитной ленте блока кодов 
(последовательности) байтов. Имя файла, в который записывается 
блок, задается символьным значением а$. Имя должно состоять не 
более чем из десяти символов и не может быть «пустым». За 
ключевым словом СОПЕ указывается адрес п размещения блока 


кодов в памяти компьютера и количество загружаемых байт |. 
ЗАУЕ "Зргифз” СОБЕ 16384, 6912 


Оператор сохраняет на магнитной ленте массив. Имя файла, в 
котором сохраняется массив, задается символьным значением а$. 
Имя должно состоять не более чем из десяти символов и не может 
быть «пустым». Следом за РАТА указывается имя массива г (буква 
или буква со знаком $) с пустыми скобками. 


ЗАМЕ "Моп1Тог” БАТА г() 
ЗАУЕ "Р1аптег” ОАТА 3$() 


Оператор записывает на магнитную ленту экранное изображение. 
Имя файла, в котором сохраняется экранное изображение, 
задается символьным значением а$. Имя должно состоять не более 


чем из десяти символов и не может быть «пустым». 
ЗАМЕ" Кого] "ЗСВЕЕМ$ 


Стр. 229. Функция возвращает символ, помешенный в указанном 
знакоместе экрана. Позиция знакоместа задается двумя 
целочисленными значениями: 
у (0...21) - номер строки; х (0...31) - номер столбца. 

200 РЕТМТ АТ 10, 12; "@”" 

210 [ЕТ а$=5СВЕЕМ$ (10, 12) 

220 РАТМТ а$ 

@ 


Стр. 172. Функция определяет знак числового значения. Она 
возвращает следующие значения: 
1 - если аргумент положителен; -1 - если аргумент отрицателен; 0 - 
если аргумент равен 0. 

РАТМТ 56№15 

7 


РВТМТ 5@№ -130 
-7 


Стр. 84. Функция вычисляет синус угла р, заданного в радианах. 
РАТМТ ТМ 1.2 
0.93203909 
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Зов К 


ЗТЕР 


ЗТОР 


57ТВ$ м 


ТАВ х 


ТАМ р 


ТНЕМ 


то 


О5В п 


Стр. 239. Функция вычисляет квадратный корень числа К. 
РАТАТ 508 49 
я 


Стр. 19. Оператор используется для построения цикла РОК... 
МЕХТ. 
Устанавливает шаг приращения управляющей переменной. 

10 РОН п=12 ТО 2 5ТЕР-2 

20 РАТМ п;” ”; 

30 МЕХГ п 

12 108642 


Стр. 34. Оператор останавливает выполнение бейсик-программы. 
После остановки программы ее выполнение может быть 
продолжено оператором СОМТИМОЕ. 


Стр. 131. Функция преобразует числовое значение \ в 
символьное. 5ТК$ возвращает значение аргумента в виде 
символьной константы. 

70 ГЕТ А=747920 

80 А$=ОТА$ А 

90 РАТМТ А$ 

747920 


Стр. 55. Оператор задаст позицию вывода на экран в текущей 
строке. Целочисленное значение х (0..31) указывает номер 
колонки. Если х меньше текущей позиции вывода, символ 
помещается в заданную позицию, но строкой ниже. ТАВ 
используется только с РЕПМТ и ПМРОТ. 

РВТМТ ТАВ 1; "*”;ТАВ 5; "»”; ТАВ 3; "|"; ТАВ 3; ”_” 


хх 


/ 


Функция вычисляет тангенс угла р; заданного в радианах. 
РАТМТ ТАМ 1.3 
8. 6021024 


Стр. 26. Ключевое слово, используется в операторе ТЕ...ТНЕМ... 


Стр. 19. Как оператор, используется для построения циклов РОК. 
..МЕХТ. 

Как функция, выделяет подстроку (выполняет сечение) 
символьного значения. Начальная и конечная позиции сечения 
задаются двумя целыми числами, которые записываются через 
ключевое слово ТО в скобках. 


РАТМТ “РТВАМТРВА” (3 ТО 6) 
РАМТ 


Стр. 144. Функция с целочисленным значением передает 
управление подпрограмме в машинных кодах, расположенной по 
адресу п (0... 65535). 


Приложение 2. Основные операторы, функции и команды 5ресцтат-Бейсика 196 


17$8в "а" 


УАШ с$ 


УАГ$ "сё Ш 


УЕВТЕУ а$ 


Стр. 47. Функция с символьным значением возвращает адрес 
первого из восьми байтов, залающих изображение символа, 
определяемого пользователем. Следом за ЧЗК указывается одна из 
20 букв А,В,С....Ц. 


РАТАТ 158 “А” 
63368 
Стр. 164. Функция возвращает символьное значение, 


представляющее собой символьную запись числового значения, в 
числовую константу. 


РАТАТ МАЕ "4-9" 
-49 


Функция возвращает строку символов, представляющую собой 
результат вычисления символьного выражения, записанного в 
виде символьной константы. 

10 ГЕТ а$="АОВТМ" [ЕТ 6$=”\\000" 

20 1ЕТ с$="а$+"; ” 1п пе ”; "+5$" 

30 РАТМТ \МАЕ$ с$ 

АОВТМ тп пе №00р 


Стр. 146. Оператор проверяет правильность записи программы на 
магнитную ленту. Имя проверяемой программы задается 
символьным значением а$. Если программа, записанная на ленте, 
не совпадает с программой, находящейся в памяти компьютера, то 
выдается сообщение об ошибке: 

Таре ТоаЧ1пта еггог. 
Таким же образом можно проверить правильность записи 
массивов УЕКГКУ...РАТА, экранного изображения ы 
УЕКТГЕКУ... ЗСВЕЕМ$ и блока кодов - УЕВТКУ...СОПЕ. 

\ЕНТРУ” “ УЕВТРУ“М1пу” 

\ЕВТЕУ"боКорап”ВАТА г() 

\УЕВТЕУ"Зрасе маг”5СВЕЕМ$ 

\УЕВТЕУ"Тапх" СО0Е 

\УЕВТЕУ"Тапх”СООЕ 16384, 6912 
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Приложение 3. Команды графического редактора Аг{ З4и4!о 


РИЕ 
Зауе Ше... 


Гоаа Ше ... 
Гоаа Ше 

Гоаа сштец 
Уегйу Ше... 
УегГу Ше 
Метгде В!е... 
Мегде Ше 
Мегде сштец 
Сааодчие 
Егазе Ше ... 


АТТВТВОТЕ$ 
5$её ШК 


Зе рарег 
зе! Богаег 


Вноы 


НазЬ 


Оуег 


Гпуегзе 


Ттапзрагеп{ 


Запись, чтение, проверка файла 
Запись экранного файла. 


Загрузка экранного файла. 


Загрузка первого встреченного на ленте экранного файла. 
(Только для кассетной версии.) 


Загрузка экранного файла с последним введенным именем. 
(Только для дисковой версии.) 


Проверка экранного файла, записанного на ленту. (Только для 
кассетной версии.) 


Наложение экранного файла с кассеты/диска на картинку. 


Просмотр каталога диска. (Только для дисковой версии.) 


Улаление файла с диска. (Только для дисковой версии.) 


Выбор цветовой палитры 
Выбор цвета тона. Для выбора одного из восьми цветов 
появившейся на экране палитры наведите на него стрелку и 
нажмите стрельбу. Можно установить пассивный цвет 
(ТКАМРАВЕМТ), который не будет влиять на раскраску экрана 
во время изображения объектов. 


Выбор цвета фона. 

Выбор цвета бордюра. 

Выбор градации яркости. Можно установить низкую (ВМСНТ 
ОРЕ), высокую (ВКСНТ ОМ) либо пассивную (ТКАМ5РАВЕМТ) 
градацию яркости. 


Выбор эффекта мерцания. 


Выбор/отмена режима инвертирования. Выполняется 
аналогично оператору Бейсика ОУЕК. 


Выбор/отмена режима удаления. При выбранном режиме 
изображение объекта осуществляется не нанесением точек, а их 


удалением. 


Установка всех цветовых атрибутов пассивными. Удобно 
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использовать при редактировании готовых картинок. 


З4апаага Установка стандартных цветов (белый бордюр, белый фон, 
черный тон). 


РАПМТ Рисование кистью, пером, распылителем 
Реп Рисование пером. 

Эргау сап Рисование распылителем. 

Вгазв Работа кисточкой. 

Еан Редактирование формы кисти. Выберите кисть, форма которой 


вас не устраивает. На экране появится ее изображение в 
восьмикратном увеличении. Наводя стрелку на нужные точки и 
нажимая стрельбу, можно создать кисть любой формы - они 
заменит ту, которую вы вызывали на редактирование. 


Вга$туегзе Выбор/отмена режима удаления. Повторяет ПМУЕК$Е в меню 
АТТЕЩВОТЕ$ 

МЕБСЕНАМЕОПЬ Разное 

Улем зсгееп Просмотр экрана До нажатия клавиши Огонь картинка 


выводится на вес 24 строки экрана. 
Сеаг $стееп Полная очистка экрана. 
Вном диа 1 Нанесение яркостной сетки 1. Знакоместа отделяются друг от 


друга переменой градации яркости. Удобно использовать при 
планировании и раскраске картинки. 


Вном диа 2 Нанесение яркостной сетки 2. В отличие от предыдущего режима 
выделяется не каждое знакоместо, а квадраты из четырех 
знакомест. 

Ветоуе дна Улаление яркостной сетки. 


СПапде со]оиг Изменение цвета в заданном окне. Перед тем, как выбрать эту 
функцию, в режиме ЭЕТ ПМК (меню АТТЕВОТЕ$) установите 
цвет, который требуется изменить, и в режиме 5ЕТ РАРЕК (меню 
АТТЕЩВОТЕ$) - цвет, на который необходимо изменить. Цвет 
будет изменен на другой независимо от того, был ли это цвет 
фона или цвет тона. 


УЛМООМ/5 Работа с окнами 
Рейпе ммпаом Задание окна произвольного размера. 
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Га$1 мшаом/ 


МПо!е $стееп 
Сеаг Ули о\ 


Си & раче 
мтпаом 


Сиаё еаг & 
рае 


Шпуен мшаом 


Ве-5сае мшаом 


Сеаг & ге-зса]1е 


Е|р Во7оща1 


ЕПр уегИса! 


Вофае 1/4, 
1/2,3/4 
Мегде 


МшИре 


ЕЙ. 

бопа ЯП 
Техетеа ЯП 
У/а$В 1ехте 


Еан ‘ехеате 


Вызов последнего заданного окна. Информация о последнем 
заданном окне хранится в памяти компьютера, и оно может быть 
снова вызвано на экран. 


Определение окна размером во весь экран. 
Полная очистка окна. 


Копирование окна. Вместо стрелки вам «на руки» будет выдано 
окно. Установив его на нужное место, нажмите клавишу Огонь, и 
содержимое исходного окна будет повторено на указанном 
месте. 


Перенос окна. Применяется аналогично предыдущей функции, 
но окно, которое служило источником, очищается. 


Инвертирование содержимого окна. 


Копирование окна с изменением масштаба. Определите второе 
окно, после чего содержимое исходного будет повторено в нем 
независимо от размеров обоих. 


Перенос окна с изменением масштаба. Применяется аналогично 
предыдущей функции, но окно, которое служило источником, 
очищается. 


Поворот окна вокруг горизонтальной оси симметрии. 
Поворот окна вокруг вертикальной оси симметрии. 
Поворот окна по часовой стрелке на 90, 180 и 270 градусов. 


Выбор/отмена режима наложения. Используется при операциях, 
связанных с перемещением окон (СОТ & РАЗТЕ МЛМООМ, 
СТЕАВ & ВЕ-5САТЕ и т. п.). При выбранном режиме 
перемещаемое, изображение накладывается на изображение, 
находящееся на экране. В противном случае старое изображение 
затирается. 


Выбор/отмена режима многократного повторения операций 
копирования и переноса. 


Закрашивание объектов 
Полное закрашивание объекта. 
Заполнение объекта текстурой. 
Замена текстуры. Укажите, какую текстуру вы хотите видеть на 
месте предыдущей. Кроме замены, можно также производить и 
наложение текстур одну на другую. 
Редактирование текстуры. 
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МАСМТЕУ 


Редактирование в увеличенном масштабе 


Мадпиу х2, х4, 
х8 
@па 


ТЕХТ 
Гей 10 пы 


Ромпу’ага$ 


М огта! Вед 
ЛопЫе ведшЕ 
Ттее вед 
М№оппа! май 
ДопЫе лат 
Ттее мат 
З1Ае\мау$ 


Во1а 


Сар$ 1осКк 


Редактирование деталей изображения с увеличением в 2, 4и8 
раз. 

Выбор/отмена сетки. Сетка используется для отделения точек 
друг от друга при восьмикратном увеличении фрагмента 
картинки. 


Работа с текстами 
Печать текста слева направо. 


Печать текста сверху вниз. 


Установка высоты букв. Можно выбрать нормальную (МОКМАТ), 
удвоенную (РОПВТЕ) и утроенную (ТКЕВГЕ) высоту. 


Установка ширины букв. Можно выбрать нормальную, удвоенную 
или утроенную ширину. 


Выбор/отмена печати букв, повернутых на 90 градусов. 
Печать жирным шрифтом. 


Фиксация верхнего регистра. 


Зпар Во!г17оща1 Выбор/отмена установки курсора на ближайшее знакоместо по 


Эпар уег са! 


Роп{ еаЦог 


$НАРЕ$ 
Ро {5 


Ппе$ 
СопНшо1$ 
Ппе$ 
Вефапо]ез$ 


Тйап9]е$ 


Сие$ 


горизонтали. При необходимости поместить символ точно в 
знакоместо, используйте эту и следующую функции. 


Выбор/отмена установки курсора на ближайшее знакоместо по 
вертикали. 


Редактирование набора символов. Это не просто функция, а 
самостоятельная программа, которая сама по себе требует 


отдельного описания, поэтому ей будет посвящен специальный 
раздел. 


Построение геометрических фигур 
Нанесение точек. 
Проведение прямых линий. 
Проведение ломаных линий. 
Построение прямоугольников. 
Построение треугольников. 


Построение окружностей. 
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Вау$ 


На$Яс 


Построение отрезков с общим началом (лучей). 


Режим подсказки. При выбранном режиме фигуры, которые вы 
рисуете, отображаются на экране пунктирной линией от базовой 
точки к текущему положению курсора еще в процессе выбора 
размеров и местоположения фигуры. Изображение фиксируется 
нажатием клавиши Огонь. 


Зпар Во!17оща1 Привязка точки к знакоместу по горизонтали 


Эпар уег са! 


РОМТ ЕОТТОВ 


Привязка точки к знакоместу по вертикали. 


Редактор наборов символов 


СНАВАСТЕВ 


Операции нал отдельным символом 


Сеаг1 

Шуец 

Е|р Воп7оща1 
ЕПр уегИса! 
Воае 1/4 
5сГОоЙ пд 
эсгой аомт 


РОМТ 


Очистка символьного поля. 

Инверсия символа. 

Поворот символа вокруг горизонтальной оси. 
Поворот символа вокруг вертикальной оси. 
Поворот символа на 90 градусов по часовой стрелке. 
Сдвиг символа вправо на одну точку. 

Сдвиг символа вниз на одну точку. 


Операции нал набором символов 


Это меню аналогично предыдущему, разница лишь в том, что 
действие его функций распространяется сразу на весь набор 
символов. 


МБСЕТАМЕОЙ$ Разное 


Сарише ГопЕ 


Сору КОМ 


Мепи 


Копирование символов с экрана. Функция позволяет 
«вытаскивать» изображения символов из загруженной в АЦ За 
картинки. Для этого в главном меню необходимо определить окно 
(функция РЕРПМЕ \М/ПМРОМ/ меню \М/ПМРОМ/$), из которого 
графические изображения будут копироваться в область набора 
символов. Копирование происходит следующим образом. Из 
левого верхнего угла окна выбирается квадрат размером 8х8 точек 
и помещается на место символа, отмеченного указателем. 
Следующий блок копируется в символ, находящийся после 
отмеченного, и т. д. до исчерпания окна либо набора символов. 


Загрузка из ПЗУ стандартного набора символов. 


Возврат в главное меню. 
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Приложение 4. Команды музыкального редактора \У/Пат 


ГОАО ТОМЕ Загрузка мелодии 

Этот режим позволяет загрузить файл, содержащий мелодию (будем называть 
его редактируемым файлом), в буфер для дальнейшей работы с ним. После 
перехода в режим (клавиша 1) программа спросит, с какого устройства вы хотите 
загружать файл. Выбор устройства осуществляется нажатием одной из клавиш: Т - 
кассета, М - оперативная память, РО - дискета. 


ЗАУЕТОМЕ Сохранение мелодии 

Эта функция позволяет записать редактируемый файл. После выбора 
устройства для записи клавишами Т (кассета), М (память) или О (дискета) введите 
имя файла, в котором будет сохранена мелодия. 


ЕТ МОРЕ Режим редактирования 

Для ввода мелодии используются клавиши двух нижних рядов, а два верхних 
ряда клавиш служат для выбора функций. Для получения дополнительных 
шумовых эффектов нужно нажать клавищу 8. На экране появится меню функций 
выбора частоты (МГАУЕРОКМ) и длительности (РОКАТЮМ) шумовых эффектов. 
Выбрать один из предоставляемых программой 16 вариантов длительности и 8 
вариантов частоты (формы колебаний) шумовых эффектов можно с помощью 
следующих клавиш: 

5,8 - выбор редактируемого шумового эффекта; 

6 - переход к функции выбора частоты; 

7 - переход к функции выбора длительности; 

0 - редактирование эффекта. 

После настройки эффектов можно выйти обратно в режим редактирования 
мелодии (клавиша Еще!) и использовать их в работе с помощью клавиш У, ОП и [. 


НЕАВ ТОМЕ Прослушивание мелодии 

При прослушивании мелодии в режиме ЕПГГ МОПЕ, она звучит в несколько 
искаженном виде. Чтобы получить представление об истинном звучании мелодии, 
то есть услышать, как она будет исполняться после компиляции (см. ниже), 
воспользуйтесь функцией НЕАК ТОМЕ. После прослушивания нажмите любую 
клавишу. 


ЗЕТ ТЕМРО Изменение темпа 
В этом режиме устанавливается необходимый темп исполнения мелодии. 
Клавишей 8 можно ускорить темп, клавишей 5 - замедлить его. 


УУНАМРШЕВ Компиляция 

Если нужно музыкально оформить программу, написанную на Бейсике или 
ассемблере, необходимо записать мелодию в виде подпрограммы, работающей 
независимо от редактора. В качестве примера предлагаем откомпилировать одну из 
5 мелодий, загружаемых из памяти (см. ГОАР ТОМЕ - МЕМОВУ), допустим, тему 
под номером 1 - ЕВЕЕРОМ. Загрузите ее и, нажав клавишу 4, войдите в режим 


компиляции. На запрос 
ТОМЕМАМЕ? 


Приложение 4. Команды музыкального редактора \М/Ват 203 


введите имя, под которым вы хотите сохранить исполняемый файл, например, 
ЕВАЕЕ.МО5. Далее программа попросит ввести адрес, с которого будет 
располагаться и запускаться исполняемый файл: 

АЗЗЕМВЕУ АБВВЕЗЗ? 

Укажите десятичный адрес, например, 60000, после чего компилятор выведет на 
экран следующую информацию: 
ИМЕ МАМЕ РВЕЕ. МУЗ 
ЗЗЕМВЕУ АООВЕЗЗ 60000 
ЕТИВМ ОРТТОМ КЕУРАЕЗЗ 


т 
А 

В 

ИНТТЕ М№ОТ5Е - М№ОМЕ - 

СНАММЕЕ 1 ГЕМСТН 313 количество шагов в 1-м канале 
СНАММЕЕ 1 100Р 5ТАВТ 

СНАММЕЕ 2 ЕЕМСТН 313 количество шагов во 2-м канале 
СНАММЕЕ 2 100Р 5ТАВТ 

1. КЕУРВЕЗЗ 

2. АШНАУЗ 

3. ТИМЕЕМО 

В 


ЕТИВМ ОРТТОМ 1,2 08 3 
Цифрами 1 2 и З обозначены условия компиляции. В зависимости от 
выбранного условия получается определенная модификация исполняемого файла: 


КЕУРВЕ$5 - проигрывание мелодии завершается при нажатии любой клавиши; 


АТУ/АУ$ —- проигрывание мелодии осуществляется одновременно с работой 
программы (подробно этот режим описан ниже}; 


ТОМЕЕМО - проигрывание завершается по окончании мелодии или при нажатии 
любой клавиши. 


Запуск компиляции произойдет сразу после выбора клавишами 1, 2 или 3 
одного из перечисленных условий. Нажмите, к примеру, клавишу 1. 

По окончании компиляции на экран будет выведена длина исполняемого файла 
в байтах и сообщение о нормальном завершении операции. Затем появится 
информация, необходимая для настройки исполняемого файла уже в процессе 
использования его в вашей программе (напомним, что в нашем примере АЗЗЕМВТУ 
АДРОКЕ$$ = 60000); 

АЕРЕАУ ЗРЕЕБ 60035, (230 ТО 255) 

Этой надписью программа сообщает, что, записывая в ячейку памяти с адресом 
60035 (АЗЗЕМВТУ АРРКВЕЗЗ + 35) число от 230 ло 255, можно изменять темп 
проигрывания мелодии; 

ВОВОЕВ СОГОВ: 60026, (0 ТО 7) 

Это сообщение говорит о том, что, записывая в ячейку с адресом 60026 
(АЗЗЕМВЕУ АРОКЕЗЗ + 26) числа от 0 до 7, вы можете на время исполнения 
мелодии устанавливать требуемый цвет бордюра (по умолчанию- фиолетовый); 

ТО ВИУМ - ВАМООМТУЕ 058 60000 

Эта надпись напоминает, что для запуска исполняемого файла из Бейсика 

необходимо использовать команду 
ААМООМТ7Е ЗВ 60000 (АЗЗЕМВЕУ АВОВЕЗ$) 

После вывода этих сообщений производится запись исполняемого файла. На 

экране появится стандартное сообщение 
ЗТААТ ТАРЕ, ТНЕМ РАЕЗЗ АМУ КЕУ 
после чего нужно включить магнитофон на запись и нажать любую клавищу. 
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